NASA  Contractor  Report  1 59063 


NASA-CR-l  59063 

|<tS(  O 0 \ ^2-87 

MAIL  LOG-  PROGRAM  THEORY  

VOLUME  I 


Danny  K.  Harris 


VOUGHT  CORPORATION 
Hampton  Technical  Center 
Hampton,  Virginia  23666 


NASA  Contract  NASI -13500 
May  1979 


(TOR  EARLY  POM'ESTIC  DISSEMINATION-T 

.Because  of  its  significant  early  commercial  potential,  this 
information,  which  has  been  developed  under  a U.S.  Gov-'' 
ernment  program,  is  being  disseminated  within  the  United 
States  in  advance  of  general  publication.  This  information 
may  be  duplicated  and  used  by  the  recipient  with  the  ex- 
press limitation  that  it  not  be  published.  Release  of  this 
information  to  other  domestic  parties  by  the  recipient  shall 
be  made  subject  to  these  limitations. 


Foreign  release  may  be  made  only  with  prior  NASA  ap- 
proval and  appropriate  export  licenses.  This  legend  shall 
be  marked  on  any  reproduction  of  this  information  in  whole  . 
or  in  part../  ' 

s"  r r — ' r'  r T-  " ^ r>  7 

Date'for  general  release  May  1981  [ . . / . . _ t : G ^ ^ : 


(WVSA 

National  Aeronautics  and 
Space  Administration 

Langley  Research  Center 

Hampton,  Virginia  23665 


w 

k 


MAIL  LOG 


PROGRAM  THEORY 
VOL.  I 

NASA  CONTRACTOR  REPORT 
DANNY  K.  HARRIS 

May  1979 


A program  theory,  containing  routine  descriptions,  detailed  flowcharts, 
complete  data  base  design,  external  software  definitions,  and  special  soft 
ware  support  routines,  for  a computerized  documentation  control  and  file 
management  system  called  Mail  Log. 


TABLE  OF  CONTENTS 


VOL.  I 


PAGE 


PREFACE 


xn 


1.0 


INTRODUCTION 


2.0 

2.1 

2.2 


DEFINITIONS 

TERMS,  ACRONYMS,  AND  ABBREVIATIONS 
FLOWCHART  CONVENTIONS 


4 

4 

4 


3.0 

3.1 

3.1.1 

3. 1.1.1 

3. 1.1. 2 


GENERAL  PROGRAM  DESCRIPTION 

BASIC  OPERATING  PROCEDURES 

LOGIN 

LOGIN  XXX 

LOGIN  SYSTEM 


7 

7 

7 

7 

8 


3.1.2  PROGRAM  ENTRY 

3. 1.2.1  OPENING  HEADER 

3. 1.2. 2 OPTION  MODES 

3.1.3  PROGRAM  EXIT 


8 

9 

9 

10 


3.2  MAIL  CORRESPONDENCE  MAIN 

3.3  DESIGN  INFORMATION  RELEASE/REPORT  MAIN 

3.4  DRAWING/ENGINEERING  ORDER  MAIN 


11 

11 

11 


4.0 

SUBROUTINE  DESCRIPTION 

4.1 

MAIL  CORRESPONDENCE 

4.1.1 

INPTC 

4.1.2 

REVSC 

4.1.3 

SEAC 

4.1.4 

ARCC 

4.1.5 

SHOWC 

4.1.6 

INPSC 

4.1.7 

OPEN 

4.1.8 

CLOSE 

4.1.9 

WHERE 

4.1.10 

BRAKET 

12 

12 

12 

13 

13 

14 
14 
14 
14 

14 

15 
15 


- iii  - 


TABLE  OF  CONTENTS  (Continued) 


PAGE 


4.1.11 

ALC 

4.1.12 

RESEA 

4.1.13 

WHO 

4.1.14 

DDAT 

4.1.15 

CNUM 

4.1.16 

CWAID 

4.1.17 

AUSEA 

4.1.18 

DLSEA 

4.1.19 

DATC 

4.1.20 

SUBJ 

4.1.21 

MSTAT 

4.1.22 

ADAT 

4.1.23 

CKIR 

4.1.24 

RDSUB 

4.1.25 

SCRNHD 

4.1.26 

SCRNPT 

4.1.27 

HARDHD 

4.1.28 

HARDPT 

4.1.29 

UPDATE 

4.2 

DESIGN  INFORMATION  RELEASE/REPORT 

4.2.1 

INPTDR 

4.2.2 

SEADR 

4.2.3 

REVSDR 

4.2.4 

ARCDR 

4.2.5 

SHOWDR 

4.2.6 

INPSDR 

4.2.7 

ALDR 

4.2.8 

TITDR 

4.2.9 

DIRN 

4.2.10 

DATDR 

4.2.11 

WANUM 

4.2.12 

SYSDR 

4.2.13 

CONN 

4.2.14 

VEHN 

4.2.15 

FMAIN 

4.2.16 

CMAIN 

4.3 

DRAWING/ENGINEERING  ORDER 

4.3.1 

INPTDW 

4.3.2 

REVSDW 

4.3.3 

SEADW 

4.3.4 

ARCDW 

4.3.5 

SHOWEO 

15 

15 

15 

16 
16 
16 
17 
17 

17 

18 
18 
18 
19 
19 
19 
19 

19 

20 
20 


21 

21 

21 

22 

22 

23 

23 

23 

23 

24 
24 
24 

24 

25 
25 

25 

26 


27 

27 

27 

28 

29 

30 


- iv  - 


TABLE  OF  CONTENTS  (Continued) 


PAGE 

4.3.6 

SHOWDW 

30 

4.3.7 

INPSE 

30 

4.3.8 

INPSDW 

30 

4.3.9 

INPSS 

31 

4.3.10 

FIXSHT 

31 

4.3.11 

SHTADD 

31 

4.3.12 

NEOADD 

31 

4.3.13 

HEADER 

31 

4.3.14 

MAIND 

32 

4.3.15 

DMAIN 

32 

4.3.16 

TITDW 

32 

4.3.17 

ALDW 

33 

4.3.18 

ACTDUE 

33 

4.3.19 

DRAWN 

33 

4.3.20 

DATDW 

34 

4.3.21 

SYSDW 

34 

4.3.22 

VEHND 

34 

4.3.23 

SECTN 

35 

4.3.24 

CODE 

35 

4.3.25 

EONN 

35 

4.4 

GENERAL  SUBROUTINES 

36 

4.4.1 

IDENT 

36 

4.4.2 

TINPUT 

36 

4.4.3 

RDCOM 

36 

4.4.4 

GETWRD 

36 

4.4.5 

GETWD 

37 

4.4.6 

GETCON 

37 

4.4.7 

IDUSER 

37 

5.0 

FLOWCHARTS 

38 

5.1 

MAIN  ENTRIES 

39 

5.1.1 

MAIL  CORRESPONDENCE 

39 

5.1.2 

DESIGN  INFORMATION  RELEASE/REPORT 

39 

5.1.3 

DRAWING/ENGINEERING  ORDER 

39 

5.2 

SUBROUTINES 

40 

5.2.1 

MAIL  CORRESPONDENCE 

40 

5.2.2 

DESIGN  INFORMATION  RELEASE/REPORT 

40 

5.2.3 

DRAWING/ENGINEERING  ORDER 

40 

5.2.4 

GENERAL 

40 

5.3 

FLOWCHART  FIGURES  FOR  MAIN  ENTRIES 

41 

v 


TABLE  OF  CONTENTS  (Continued) 


PAGE 


5.4 

FLOWCHART  FIGURES  FOR  SUBROUTINES 

56 

6.0 

DATA  BASE  DESIGN 

500 

6.1 

FILE  STRUCTURE 

500 

6.1.1 

DATA  SUBFILES 

500 

6. 1.1.1 

MAIL  CORRESPONDENCE  DATA 

500 

6. 1.1. 2 

DESIGN  INFORMATION  RELEASE/REPORT  DATA 

500 

6. 1.1. 3 

DRAWING/ENGINEERING  ORDER  DATA 

500 

6.1.2 

STORAGE  FILES 

502 

6.1. 2.1 

MAIL  CORRESPONDENCE 

502 

6. 1.2. 2 

DESIGN  INFORMATION  RELEASE/REPORT 

502 

6. 1.2. 3 

DRAWING/ENGINEERING  ORDER 

502 

6.1.3 

TEMPORARY  WORKING  STORES 

504 

6. 1.3.1 

MAIL  CORRESPONDENCE 

504 

6. 1.3. 2 

DESIGN  INFORMATION  RELEASE/REPORT 

504 

6. 1.3. 3 

DRAWING/ENGINEERING  ORDER 

504 

6.2 

DATA  RECORDS 

506 

6.2.1 

MAIL  CORRESPONDENCE 

506 

6.2.2 

DESIGN  INFORMATION  RELEASE/REPORT 

506 

6.2.3 

DRAWING/ENGINEERING  ORDER 

506 

6.3 

MISCELLANEOUS  VARIABLES  AND  ARRAYS 

518 

6.3.1 

MAIL  CORRESPONDENCE 

519 

6.3.2 

DESIGN  INFORMATION  RELEASE/ REPORT 

522 

6.3.3 

DRAWING/ENGINEERING  ORDER 

524 

6.3.4  ' 

GENERAL 

526 

6.4 

TABLES 

527 

6.4.1 

SYSCOM  KEYS. F 

527 

6.4.2 

CTAB 

529 

7.0 

MAIL  LOG  OUTPUTS 

531 

8.0 

EXTERNAL  CALLS 

532 

8.1 

SYSTEM  SOFTWARE  ROUTINES 

532 

8.2 

MISCELLANEOUS  ROUTINES 

534 

8.2.1 

CLEAR 

534 

8.2.2 

PAUf„ 

534 

8.2.3 

jYime 

534 

- vi  - 


TABLE  OF  CONTENTS  (Continued) 

PAGE 

9.0  SPECIAL  SUPPORT  ROUTINES  535 

VOL.  II 

APPENDIX  A GLOSSARY  OF  TERMS  A-1 

APPENDIX  B L_FILE  FOR  MAIL  CORRESPONDENCE  B-l 

APPENDIX  C L_F I LE  FOR  DESIGN  INFORMATION  RELEASE/REPORT  C-l 

APPENDIX  D L_FILE  FOR  DRAWING/ENGINEERING  ORDER  D-l 

APPENDIX  E SOURCE  FOR  MISCELLANEOUS  EXTERNAL  ROUTINES  E-l 

APPENDIX  F SOURCE  FOR  SPECIAL  SUPPORT  ROUTINES  F-l 


- vii 


TABLE  OF  FIGURES 


FIGURES 


PAGE 


1.1  SPADS  MAIL  LOG  MODES  OF  OPERATION  2 

1.2  SPADS  MAIL  LOG  SUBFILED  DATA  BASE  3 


5.3- 1  MAIN 

5.3- 2  *DIR 

5.3- 3  *DRAW 


42 

47 

50 


5. 4.1-1 

INPTC 

5.4. 1-2 

REVSC 

5. 4.1-3 

SEAC 

5. 4.1-4 

ARCC 

5.4. 1-5 

SHOWC 

5.4. 1-6 

INPSC 

5.4. 1-7 

OPEN 

5. 4.1-8 

CLOSE 

5. 4. 1-9 

WHERE 

5.4.1-10 

BRAKET 

5.4.1-11 

ALC 

5.4.1-12 

RESEA 

5.4.1-13 

WHO 

5.4.1-14 

DDAT 

5.4.1-15 

CNUM 

5.4.1-16 

CWAID 

5.4.1-17 

AUSEA 

5.4.1-18 

DLSEA 

5.4.1-19 

DATC 

5.4.1-20 

SUBJ 

5.4.1-21 

MSTAT 

5.4.1-22 

ADAT 

5.4.1-23 

CKIR 

5.4.1-24 

RDSUB 

5.4.1-25 

SCRNHD 

5.4.1-26 

SCRNPT 

5.4.1-27 

HARDHD 

5.4.1-28 

HARDPT 

5.4.1-29 

UPDATE 

57 

78 

90 

99 

108 

111 

132 

134 

136 

142 

145 

148 

151 

154 

157 

160 

166 

169 

172 

175 

187 

193 

199 

201 

204 

209 

212 

217 

219 


- ix 


FIGURES  (Continued) 


PAGE 


5.4. 2- 1  INPTDR  222 

5.4. 2- 2  SEADR  228 

5.4. 2- 3  REVSDR  - 231 

5. 4. 2- 4  ARCDR  236 

5. 4. 2- 5  SHOWDR  241 

5.4. 2- 6  INPSDR  243 

5. 4.2- 7  ALDR  252 

5.4. 2- 8  TITDR  255 

5.4. 2- 9  DIRN  264 

5.4.2- 10  DATDR  266 

5.4.2- 11  WANUM  271 

5.4.2- 12  SYSDR  273 

5.4.2- 13  CONN  275 

5.4.2- 14  VEHN  278 

5.4.2- 15  FMAIN  281 

5.4.2- 16  CMAIN  283 


5. 4. 3- 1  INPTDW  285 

5. 4. 3- 2  REVSDW  288 

5. 4. 3- 3  SEADW  297 

5. 4. 3- 4  ARCDW  303 

5. 4. 3- 5  SHOWEO  315 

5.4. 3- 6  SHOWDW  317 

5.4. 3- 7  INPSE  320 

5. 4. 3- 8  INPSDW  328 

5. 4. 3- 9  INPSS  349 

5.4.3- 10  FIXSHT  355 

5.4.3- 11  SHTADD  358 

5.4.3- 12  NEOADD  361 

5.4.3- 13  HEADER  370 

5.4.3- 14  MAIND  372 

5.4.3- 15  DMAIN  381 

5.4.3- 16  TITDW  393 

5.4.3- 17  ALDW  407 

5.4.3- 18  ACTDUE  416 

5.4.3- 19  DRAWN  425 

5.4.3- 20  DATDW  431 


x 


FIGURES  (Continued) 


J 


PAGE 


5.4.3-21 

SYSDW 

437 

5.4.3-22 

VEHND 

443 

5.4.3-23 

SECTN 

455 

5.4.3-24 

CODE 

461 

5.4.3-25 

EONN 

467 

5. 4. 4-1 

I DENT 

479 

5. 4.4-2 

TINPUT 

482 

5. 4. 4-3 

RDCOM 

484 

5. 4. 4-4 

GETWRD 

487 

5. 4. 4-5 

GETWD 

492 

5. 4. 4-6 

GETCON 

495 

5. 4. 4-7 

IDUSER 

498 

6. 2. 1.1 

CORRESPONDENCE  RECORD  DESCRIPTION 

508 

6. 2. 1.2 

CORRESPONDENCE  SEARCHABLE  DATA  ITEMS 

509 

6. 2. 1.3 

CORRESPONDENCE  SEARCHES 

510 

6.2.2. 1 

DIR/REPORT  RECORD  DESCRIPTION 

511 

6. 2. 2. 2 

DIR/REPORT  SEARCHABLE  DATA  ITEMS 

512 

6. 2. 3.1 

DRAWING  RECORD  DESCRIPTION 

513 

6. 2. 3. 2 

SEARCHABLE  DRAWING  DATA  ITEMS 

514 

6. 2. 3. 3 

ENGINEERING  ORDER  RECORD  DESCRIPTION 

515 

6. 2. 3. 4 

SEARCHABLE  ENGINEERING  ORDER  DATA  ITEMS 

516 

6. 2. 3. 5 

DRAWING/ENGINEERING  ORDER  SEARCHES 

517 

- xi  - 


PREFACE 


During  the  research  development  and  operational  phases  of  the  Scout 
Project,  large  quantities  of  documentation  are  generated  to  describe 
analytical  studies,  and  correspondence  from  mission  definition  through 
postflight  analysis.  These  documents  take  the  form  of  engineering  reports, 
drawings,  analyses,  procedures,  specifications,  test  results,  and  contractual 
reports. 

Retrieval  of  these  documents  is  based  upon  a Project  Office  assigned 
code  number  which  denotes  a file  cabinet  and  approximate  location  within  that 
cabinet.  Therefore,  knowledge  of  the  filing  system  code  number  is  necessary 
for  retrieval. 

The  Scout  Project  Automatic  Data  System,  SPADS,  was  developed  as  a single 
entry  multiple  cross-reference  filing  system.  It  was  implemented  to  improve  the 
overall  management  efficiency  by: 

a)  reducing  the  number  of  man  hours  required  to  retrieve  data 
from  the  files 

b)  providing  for  full  data  availability  with  quick  retrieval  during 
vehicle  anomaly  investigations 

c)  answering  inquiries  from  NASA  Headquarters  and  outside  agencies 
for  information  on  a Scout  vehicle 

d)  helping  alleviate  a rapidly  growing  storage  problem. 

The  MAIL  LOG  portion  of  this  automated  data  system  satisfies  the  above 
criteria.  This  program,  with  its  multiple  cross-reference  capability,  operates 
in  conjunction  with  and  amplification  of  the  existing  filing  system. 


1.0 


INTRODUCTION 


This  document  provides  the  program  theory  used  to  obtain  the 
software  package,  MAIL  LOG,  developed  for  the  Scout  Project  Automatic  Data 
System,  SPADS.  The  program  is  written  in  FORTRAN  for  the  PRIME  300  computer 
system  located  in  Building  1192-E  at  NASA,  Langley  Research  Center.  This  16 
bit  mini -computer  has  a 64K  word  virtual  memory  and  a 256K  word  physical 
memory.  To  complete  the  SPO's  computer  configuration,  a 60  mega-byte  disk 
is  used  for  storage  of  all  software  and  corresponding  data  files.  Magnetic 
tape  is  used  for  a daily  back-up  and  for  physical  archiving. 

The  MAIL  LOG  program  has  four  modes  of  operation  as  shown  in 
Figure  1.1: 

1)  INPUT  - putting  new  records  into  the  data  base 

2)  REVISE  - changing  or  modifying  existing  records  in  the 

data  base 

3)  SEARCH  - finding  special  records  existing  in  the 

data  base 

4)  ARCHIVE  - store  or  put  away  existing  records  in  the 

data  base 

The  output  includes  special  printouts  of  records  in  the  data  base  and  results 
from  the  INPUT  and  SEARCH  MODES. 

Documentation  of  the  MAIL  LOG  program  consists  of  two  other  manuals 

1)  Users  Manual  - 'MAIL  LOG  PROGRAM  OPERATING  INSTRUCTIONS'; 

CR 

2)  Summary  Manual  - 'MAIL  LOG  PROGRAM  SUMMARY  AND  SPECIFICATIONS'; 

CR 

The  MAIL  LOG  data  base  consists  of  three  main  subfiles  (as  shown  in 
Figure  1.2); 

1)  Incoming  and  Outgoing  Mail  Correspondence 

2)  Design  Information  Releases  (DIR)  and  Reports 

3)  Drawings  and  Engineering  orders  (E.O.) 


SPADS 
HAIL  LOG 

Modes  of  Operation 


FIGURE  1.1 
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SPADS 
HAIL  LOG 

Subfiled  Data  Base 


FIGURE  1.2 
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2.0  DEFINITIONS 

2.1  TERMS,  ACRONYMS,  AND  ABBREVIATIONS 

Terms,  acronyms,  and  abbreviations  used  within  these  documents 
are  defined  in  GLOSSARY  OF  TERMS,  Appendix  A. 

2.2  FLOWCHART  CONVENTIONS 

Flowcharting  conventions  for  this  manual  consist  of  the  following: 

(a)  Standard  IBM  flowcharting  symbols  will  be  used  for  all 
diagrams. 


DECISION  CONNECTOR  INTERRUPT 


(b)  Logic  always  flows  from  top  to  bottom  and  from  left  to  right 
on  all  pages. 

(c)  All  subroutines  will  be  designated  by  a double  sided  procedure 
box. 
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(d)  A figure  number  is  utilized  as  the  symbol  identification  for 
all  subroutines  within  the  set  of  flowcharts.  By  removing  the 
5 from  each  number,  the  description  section  number  is  given. 

5.4.1 

For  example:  Description  for 

Figure  5.4.1  is  found  in  Section 
4.1 

(e)  The  abbreviation  EXT.  is  utilized  as  the  symbol  identification 

for  all  predefined  or  system  software  routines  external  to  the 
set  of  flowcharts. 


EXT 


(f)  Cross  referencing  connectors  are  accomplished  at  the  outconnectors 
only.  The  page  number  to  the  upper  right  of  the  outconnector 
represents  the  page  number  of  the  flowchart  where  the  associated 
inconnector  is  located. 

(page  2) 

connector  label  #3 

(g)  Converging  or  branching  connectors  will  be  designated  by  a 
number.  Continuation  of  in-line  instructions  will  be  designated 
with  a letter. 

(h)  All  decisions  will  branch  with  the  YES  path  to  the  right  and 
the  NO  path  down.  Decision  comments  will  be  stated  to  the 
positive  question;  this  is  done  even  though  the  corresponding 
code  is  written  to  the  negative. 
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(i)  Multiple  decisions  branching  in  sequence  will  be  symbolized 
as  one  decision  block  commented  SWITCH. 


(j)  Each  flow  diagram  will  be  followed  by  its  corresponding  code 
which  will  use  the  following  conventions: 

(1)  CALL  to  system  or  program  routines  will  only  designate 
the  routine  name. 

(2)  Format  statements  will  not  be  given. 

(3)  The  IF  on  decision  statements  will  not  be  given. 

(4)  GO  TO's,  CALL  EXIT'S,  and  RETURN'S  will  not  be  designated. 

(5)  Blocks  representing  multiple  statements  will  separate 
each  command  with  a semicolon. 


3.0 


GENERAL  PROGRAM  DESCRIPTION 


This  section  provides  a description  of  the  MAIL  LOG  basic  operating 
procedures  and  main  subfile  routines. 

3.1  BASIC  OPERATING  PROCEDURES 

The  purpose  of  this  section  is  to  provide  a description  and  terminal 
interaction  the  user  must  perform  in  order  to  LOGIN  to  the  PRIME  computer 
system,  enter  the  SPADS  MAIL  LOG  program,  and  exit  MAIL  LOG  program.  Note 
that  all  user  actions  are  terminated  with  a carriage  return;  designated  by 
the  key  marked  RETURN  on  the  terminal. 

3.1.1  LOGIN 

There  are  two  methods  to  enter  the  SPADS  computer  system:  LOGIN  XXX 

and  LOGIN  SYSTEM.  Either  method  allows  the  user  to  access  any  active  program 
on  SPADS.  Both  require  the  user  to  enter  the  program  selection  MAIL  LOG  as 
shown  in  section  3. 1 .2.  User  action  is  designated  within  a rectangle.  XXX 
represents  the  user  initials;  N is  the  terminal  location  number;  HR  and  MN 
is  the  time  the  user  entered  the  system  in  hours  and  minutes;  and  MMDDYY  is 
the  month,  day,  and  year. 

ILOGIN  XXX 

XXX  (N)  LOGGED  IN  AT  HR' MN  MMDDYY 

3. 1.1.1  LOGIN  XXX 

This  login  (where  XXX  is  the  user's  ID)  allows  the  user  to  perform 
any  search  and  obtain  the  resulting  outputs  within  the  MAIL  LOG  subfiles. 
Clearance  for  some  user  ID's  allow  entrance  into  the  INPUT  and  REVISE  operation 
modes.  No  user  has  clearance  to  execute  the  ARCHIVE  MODE. 
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3. 1.1. 2 LOGIN  SYSTEM 


This  login  allows  the  user  to  perform  any  search  and  obtain  the 
resulting  outputs  within  the  MAIL  LOG  subfiles.  It  also  allows  the 
ARCHIVE  MODE  to  be  entered  and  executed.  No  clearance  is  given  to  execute 
the  INPUT  or  REVISE  MODES. 

3.1.2  PROGRAM  ENTRY 

After  system  LOGIN  is  completed,  the  user  must  specify  the  program 
selection  MAIL  LOG  as  follows: 


THE  FOLLOWING  IS  A LIST  OF  CURRENT  APPLICATIONS 

PLEASE  INDICATE  YOUR  APPLICATION/PROJECT  BY  SELECTING  THE  APPROPRIATE  KEY 


APPLICATION/PROJECT  KEY 

CHANGE  REQUEST  CHG 

SCHEDULE  15000  150 

SCHEDULE  15100  151 

ANALYSIS  I ANAL 

MAIL  LOG  MAIL 

ELOPE  ELOP 

PROGRAM  DEVELOPMENT  DEV 

SOFTWARE  MAI NT  SOMA 

MISCELLANEOUS  MISC 


PLEASE  ENTER  THE  APPROPRIATE  KEY 


MAIL 


MAIL 


3. 1.2.1  OPENING  HEADER 


This  attaches  to  the  F_MAIL  UFD  and  resumes  the  running  of  the  main 
MAIL  LOG  enter  program,  BFILE. 

WELCOME  TO  SPADS 

MAIL  LOG  FILE 

DO  YOU  WISH  TO  WORK  WITH  THE  DIR/REPORT  DATA  — ENTER  DIR 

OR  DRAWING  DATA  — ENTER  DRAW 
OR  DAILY  CORRESPONDENCE  — COR 
OR  QUIT  — QU 


In  order  for  the  user  to  select  one  of  the  four  modes  of  operation, 
one  of  three  main  data  base  subfiles  must  first  be  designated  as  follows: 


DRAW 


This  attaches  the  user  to  the  F_DRAW  UFD  and  resumes  operation  of 
the  *DRAW  program.  Likewise,  if  DIR  was  selected,  *DIR  program  would  be 
resumed  on  the  F_DIR  UFD.  If  COR  was  selected,  the  user  remains  on  the  F_MAIL 
UFD  and  continues  as  normal. 


3. 1.2. 2 OPTION  MODES 


PLEASE  CHOOSE 

ONE  OF  THE  FOLLOWING: 

MODE 

KEY 

INPUT 

INP 

REVISE 

REV 

SEARCH 

SEA 

ARCHIVE 

ARC 

QUIT 

QUIT 
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3.1.3 


PROGRAM  EXIT 


To  leave  the  program  the  user  must  enter  QUIT  as  shown  below: 
PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING: 


MODE  KEY 
INPUT  INP 
REVISE  REV 
SEARCH  SEA 
ARCHIVE  ARC 
QUIT  QUIT 

Qjjjjt  □ 


This  provides  program  exit  and  returns  the  user  to  the  program  entry 
level  on  the  F MAIL  UFD. 


DO  YOU  WISH  TO  WORK  WITH  THE  DIR/REPORT  DATA  — ENTER  DIR 

OR  DRAWING  DATA  — ENTER  DRAW 
OR  DAILY  CORRESPONDENCE  — COR 
OR  QUIT  — - QU 


OK, 
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3.2 


MAIL  CORRESPONDENCE  MAIN 


This  routine  provides  the  executive  operations  and  main  program 
entry  for  the  MAIL  LOG  program.  It  also  contains  the  necessary  routines  to 
handle  the  Correspondence  subfile.  The  program  is  called  BFILE  and  is  located 
within  the  F_MAIL  UFD.  If  the  user  selects  the  Correspondence  subfile,  a USER 
file  is  built  containing  the  user  ID,  time,  date,  and  terminal  location.  Then 
the  user  may  proceed  with  one  of  four  (4)  modes  of  operation  within  the 
Correspondence  subfiles.  When  a user  quits  operation  within  the  Correspondence 
subfiles,  return  to  the  executive  main  entry  selection  mode  is  made.  The  user 
again  has  the  option  of  operating  with  the  DIR/REPORT,  DRAWING,  or  CORRESPONDENCE 
data.  If  either  of  the  first  two  (2)  areas  of  the  data  base  are  selected,  the 
executive  routine  attaches  the  user  to  the  appropriate  UFD,  F_DIR  or  F_DRAW 
respectively.  See -Sections  3.3  and  3.4  for  further  information  regarding  these 
main  routines.  Flowchart  Figure  5.3-1  depicts  the  CORRESPONDENCE  MAIN. 

3.3  DESIGN  INFORMATION  RELEASE/ REPORT  MAIN 

This  routine  provides  the  executive  operation  and  main  program  entry 
for  the  DIR/REPORT  data  subfile.  This  program  is  called  *DIR  and  is  located 
within  the  F_DIR  UFD.  Upon  entry  into  this  program,  a USER  file  is  built 
containing  the  user  ID,  time,  date,  and  terminal  location.  The  user  then  may 
proceed  with  one  of  four  (4)  modes  of  operation  within  the  DIR/REPORT  subfile. 

A 'QUIT'  at  this  level  will  send  executive  control  back  to  the  F_MAIL  UFD. 

This  is  accomplished  by  resuming  the  BFILE  program.  Operation  then  proceeds 
as  described  in  Section  3.2.  Flowchart  Figure  5.3-2  depicts  the  DIR/REPORT  MAIN. 

3.4  DRAWING/ENGINEERING  ORDER  MAIN 

This  routine  provides  the  executive  operation  and  main  program  entry 
for  the  DRAWING/E. 0.  data  subfiles.  This  program  is  called  *DRAW  and  is  located 
within  the  F_DRAW  UFD.  Upon  entry  into  this  program,  a USER  file  is  built 
containing  the  user  ID,  time,  date,  and  terminal  location.  The  user  then  may 
proceed  with  one  (1)  of  four  (4)  modes  of  operation  within  the  DRAWING/E. 0. 
subfile.  A 'QUIT'  at  this  level  will  send  executive  control  back  to  the 
F_MAIL  UPD.  This  is  accomplished  by  resuming  the  BFILE  program.  Operation  then 
proceeds  as  described  in  Section  3.2.  Flowchart  Figure  5.3-3  depicts  the 
DRAWING/E. 0.  MAIN. 
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4.0 


SUBROUTINE  DESCRIPTION 


This  section  provides  descriptions  of  all  subroutines  used  by  MAIL 
CORRESPONDENCE,  DESIGN  INFORMATION  RELEASE/ REPORT, , and  DRAWING/ENGINEERING  ORDER 
subfile  programs. 

4.1  MAIL  CORRESPONDENCE 

4.1.1  INPTC 

This  subroutine  is  the  input  routine  for  the  SPADS  MAIL  LOG 
Correspondence  subfile.  The  Correspondence  data  record  for  each  document 
consists  of  up  to  sixteen  (16)  data  items  as  shown. in  Figure  6. 2. 1.1.  Following 
each  complete  document  entry,  all  items  are  displayed  on  the  terminal  to  be 
checked  for  errors  at  this  time.  After  a document  record  has  been  declared 
correct,  the  specific  subfile  must  be  designated  in  which  this  document  is  to., 
be  stored.  If  all  documents  can  not  be  entered  in  one  (1)  input  session,  the 
user  has  a WAIT  option  which  allows  the  daily  input  to  be  continued  at  a later 
time.  This  continuation  is  declared  upon  re-entering  the  INPUT  MODE.  If  the 
WAIT  option  is  taken  by  mistake  and  there  are  no  other  documents  to  be 
entered,  recovery  is  accomplished  by  declaring  this  is  NOT  a continuation  upon 
re-entry  into  the  INPUT  MODE.  When  this  has  been  done  the  user  now  has  three 
(3)  options  from  which  to  choose: 

a)  Start  a New  Entry  (NEW) 

b)  Spool  Last  Output  Again  (LAST) 

c)  Spool  New  Data  Entered  (DATA) 

Option  (c)  DATA  will  spool  to  the  high  speed  printer  a sorted  output  of  all 
documents  entered  for  that  daily  input  session. 

When  a daily  input  session  is  complete,  this  output  is  normally 
spooled  to  the  printer  in  two  (2)  formats:  a complete  record  output  and  a 
brief  or  partial  record  output.  If  a computer  or  printer  malfunction  occurs 
during  this  output,  another  copy  may  be  obtained  by  re-entering  the  INPUT  MODE 
as  previously  described  and  selecting  option  (b)  LAST.  Flowchart  Figure  5 .4 .1-1 
depicts  the  INPUT  MODE  of  the  Correspondence  subfile. 
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4.1.2  REVSC 

This  subroutine  is  the  revise  routine  for  the  SPADS  MAIL  LOG 
Correspondence  subfile.  To  revise  or  delete  a document,  the  input  date  and 
daily  counter  code  comprise  the  unique  identifier  for  its  location.  Additional 
time  can  be  saved  if  the  user  also  knows  in  which  of  the  six  (6)  correspondence 
data  subfiles  the  document  is  stored.  When  the  desired  document  record  is 
found,  it  will  be  displayed  on  the  terminal  for  verification.  If  not  the 
correct  record,  search  for  the  document  will  continue.  After  the  revision  has 
been  made  the  document  record  is  again  displayed  on  the  terminal  for  user 
edification. 

The  REVISE  MODE  also  can  give  the  user  manual  revise  or  delete 
capability  for  documents  in  the  ACTION  DUE  file.  Flowchart  Figure  5.4. 1-2 
depicts  the  REVISE  MODE  of  the  Correspondence  subfile. 

4.1.3  SEAC 

This  subroutine  is  the  search  routine  for  the  SPADS  MAIL  LOG 
Correspondence  subfile. 

Of  the  sixteen  (16)  possible  data  items  within  a document  record, 
eleven  (11)  are  searchable.  The  resulting  outputs  from  these  searches  vary 
from  five  (5)  to  eight  (8)  data  items.  See  Figure  6. 2. 1.2.  All  searches 
except  for  the  ACTION  DUE  DATE  search  have  a multiple  subfile  selection 
capability  in  which  any  single  or  combination  of  the  six  subfiles  may  be  used. 

The  ACTION  DUE  DATE  search  automatically  searches  all  six  (6)  subfiles.  There 
is  a specialized  ALL  search  which  outputs  all  document  records  in  a specified 
subfile  or  combination  of  subfiles.  However,  it  is  not  recommended  that  the  general 
user  call  for  the  search  ALL  option. 

The  searches  may  also  be  assigned  for  a particular  time  frame.  If 
no  time  frame  is  selected,  the  first  valid  date  becomes  the  earliest  date  in 
the  data  base  and  the  last  valid  date  defaults  to  12-31-99.  Of  course,  the 
ACTION  DUE  DATE,  DOCUMENT  DATE,  and  INPUT  DATE  searches  do  not  use  the  time 
framing  capability.  However,  the  DOCUMENT  and  INPUT  DATE  searches  can  retrieve 
entire  month's  or  an  entire  year's  worth  of  data  by  entering  00.  For  example, 
entering  110078  would  result  in  finding  all  the  documents  within  the  data  base 
in  the  eleventh  month,  November,  for  the  year  1978.  Likewise,  an  entry  of  000078 
would  retrieve  all  documents  for  the  year  1978.  See  Figure 6.2.1 .3. 

Flowchart  Figure  5.4. 1-3  depicts  the  SEARCH  MODE  of  the  Correspondence 

subfile. 
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4.1.4 


ARCC 


This  subroutine  is  the  archive  routine  for  the  SPADS  MAIL  LOG 
Correspondence  subfile.  To  archive  a document  not  only  is  the  input  date  and 
daily  counter  code  needed,  but  also  the  specific  data  subfile  in  which  it  is 
located.  After  these  requirements  have  been  satisfied,  a pause  of  15  to  50 
seconds  occurs  for  the  system  to  update  all  files  involved. 

All  archived  document  records  are  placed  in  a file  called  INACTS, 
except  for  those  records  stored  in  the  TRANSMITTAL  data  subfile.  These 
records  are  archived  to  a file  called  INACTL,  because  of  their  extra  data 
item,  DESCRIPTION.  Flowchart  Figure  5.4. 1-4  depicts  the  ARCHIVE  MODE  of  the 
Correspondence  subfile. 

4.1.5  SHOWC 

This  subroutine  is  used  to  display  an  entire  data  record  on  the 
terminal  for  the  INPUT  or  REVISE  MODE  . Each  data  item  is  numbered  in  order 
to  verify  the  document  record  as  either  correctly  input  or  the  correct  record  to 
be  revised  or  deleted.  Flowchart  Figure  5. 4. 1-5  depicts  the  flow  diagram  for 
this  subroutine. 

4.1.6  INPSC 

This  subroutine  is  used  by  the  INPUT  or  REVISE  MODES  to  input  or 
change  specific  data  items  within  a document  record.  Flowchart  Figure  5.4. 1-6 
depicts  the  flow  diagram  for  this  subroutine. 

4.1.7  OPEN 

This  subroutine  is  used  to  open  all  six  (6)  data  subfiles  for  read 
and  write  functions.  Flowchart  Figure  5. 4. 1-7  depicts  the  flow  diagram  for 
this  subroutine. 

4.1.8  CLOSE 

This  subroutine  is  used  to  close  all  six  (6)  data  subfiles  which 
are  open  for  read  and  write  functions.  Flowchart  Figure  5. 4. 1-8  depicts  the 
flow  diagram  for  this  subroutine. 
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4.1.9  WHERE 

This  subroutine  is  used  by  the  REVISE  or  SEARCH  MODES  to  determine 
how  many  and  which  data  subfiles  are  to  be  opened  for  searching  purposes. 

These  selected  subfiles  are  then  opened  for  the  SEARCH  MODE  of  operation. 
Flowchart  Figure  5.4. 1-9  depicts  the  flow  diagram  for  this  subroutine. 

4.1.10  BRAKET 

This  subroutine  is  used  by  the  SEARCH  MODE  to  determine  a first  and 
last  valid  date  for  a time  framed  type  of  search.  Defaults  are  0-0-0  and 
12-31-99  for  the  first  and  last  valid  dates,  respectively.  Flowchart 
Figure  5.4.1-10  depicts  the  flow  diagram  for  this  subroutine. 

4.1.11  ALC 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a PRINT  ALL 
type  of  search.  This  routine  may  search  any  one  or  combination  of  subfiles. 

The  break  key  is  inhibited  during  this  search.  When  the  file(s)  have  been 
finished,  this  routine  automatically  spools  the  formatted  output  file  to  the 
high  speed  printer.  Flowchart  Figure  5.4.1-11  depicts  the  flow  diagram  for 
this  subroutine. 

4.1.12  RESEA 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a RESPONSIBLE 
ENGINEER  type  of  search.  This  routine  formats  document  records  found  and 
builds  an  output  file  with  headers.  When  the  file(s)  have  been  finished,  this 
routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.1-12  depicts  the 
flow  diagram  for  this  subroutine. 

4.1.13  WHO 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a WHO  TO/ 
ADDRESSEE  type  of  search.  This  routine  formats  document  records  found  and 
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builds  an  output  file  with  headers.  When  the  file(s)  have  been  finished,  this 
routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.1-13  depicts  the 
flow  diagram  for  this  subroutine. 

4.1.14  DDAT 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  an  INPUT 
DATA  DATE  type  of  search. 

This  INPUT  DATE  search  does  not  use  the  time  framing  capability. 
However,  the  INPUT  DATE  search  can  retrieve  entire  month's  or  an  entire  year's 
worth  of  data  by  entering  00.  For  example,  entering  110078  would  result  in 
finding  all  the  documents  within  the  data  base  in  the  eleventh  month,  November, 
for  the  year  1978.  Likewise,  an  entry  of  000078  would  retrieve  all  documents 
for  the  year  1978.  See  Figure  6. 2. 1.3. 

Flowchart  Figure  5.4.1-14  depicts  the  flow  diagram  for  this  subroutine. 


4.1.15  CNUM 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a CONTRACT 
NUMBER  type  of  search.  This  routine  formats  document  records  found  and  builds 
an  output  file  with  headers.  When  the  file(s)  have  been  finished,  this  routine 
returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.1-15  depicts  the  flow  diagram 
for  this  subroutine. 

4.1.16  CWAID 


This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a WORK 
AUTHORIZATION/ID  CODE  type  of  search.  This  procedure  may  perform  partial 
searches  using  the  W.A.  Number  only  or  W.A.  Number  in  conjunction  with  the 
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first  two  (2)  letters  of  the  ID  Code.  This  routine  formats  document  records 
found  and  builds  an  output  file  with  headers.  When  the  file(s)  have  been 
finished,  this  routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.1-16 
depicts  the  flow  diagram  for  this  subroutine. 

4.1.17  AUSEA 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  an  AUTHOR/ 
SOURCE  type  of  search.  This  routine  formats  document  records  found  and 
builds  an  output  file  with  headers.  When  the  file(s)  have  been  finished, 
this  routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.1-17  depicts 
the  flow  diagram  for  this  subroutine. 

4.1.18  DLSEA 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a DOCUMENT/ 
LETTER  NUMBER  type  of  search.  This  procedure  may  perform  partial  searches  as 
long  as  the  desired  parameter  is  four  (4)  characters  in  length.  This  routine 
formats  document  records  found  and  builds  an  output  file  with  headers.  When 
the  file(s)  have  been  finished,  this  routine  returns  to  the  SEARCH  MODE. 
Flowchart  Figure  5.4.1-18  depicts  the  flow  diagram  for  this  subroutine. 

4.1.19  DATC 


This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  DOCUMENT 
DATE  type  of  search.  This  DOCUMENT  DATE  search  does  not  use  the  time  framing 
capability.  However,  the  DOCUMENT  DATE  search  can  retrieve  entire  month's  or 
an  entire  year's  worth  of  data  by  entering  00.  For  example,  entering  110078 
would  result  in  finding  all  the  documents  within  the  data. base  in  the  eleventh 
month,  November,  for  the  year  1978.  Likewise,  an  entry  of  000078  would  retrieve 
all  documents  for  the  year  1978.  See  Figure  6. 2. 1.3. 


- 17  - 


Flowchart  Figure  5.4.1-19  depicts  the  flow  diagram  for  this 
subroutine. 

4.1.20  SUBJ 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  SUBJECT 
TITLE  search.  This  procedure  allows  up  to  four  (4)  of  the  seven  (7)  possible 
Words  in  the  subject  to  be  searched.  As  each  subject  is  found  containing  the 
desired  word,  the  entire  subject  is  displayed  on  the  terminal.  If  none  are 
found,  the  user  may  restart  this  subroutine  or  return  to  the  SEARCH  MODE  as 
normally  done  when  the  file(s)  are  finished.  When  the  final  word  has  been 
searched,  document  records  found  will  be  formatted  to  an  output  file  with 
headers.  Flowchart  Figure  5.4.1-20  depicts  the  flow  diagram  for  this  routine. 

4.1.21  MSTAT 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a MAIL 
STATUS  type  of  search.  If  the  desired  mail  status  is  legal,  the  search  is 
performed.  This  routine  formats  document  records  found  and  builds  an  output 
file  with  headers.  When  the  file(s)  are  finished,  this  routine  returns  to 
the  SEARCH  MODE.  Flowchart  Figure  5.4.1-21  depicts  the  flow  diagram  for  this 
subroutine. 

4.1.22  ADAT 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  ACTION 
DUE  DATE  search.  This  procedure  has  two  options:  a complete  listing  of 

document  records  with  an  action  due  or  search  for  document  records  within 
five  (5)  days  or  past  due  using  the  current  date  as  reference.  This  routine 
formats  document  records  found  and  builds  an  output  file  with  headers. 

During  this  search  the  break  key  is  inhibited.  When  the  ACTION  DUE  subfile 
is  finished,  this  routine  automatically  spools  the  output  file  to  the  high 
speed  printer.  Flowchart  Figure  5.4.1-22  depicts  the  flow  diagram  for 
this  subroutine. 
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4.1.23  CKIR 


This  subroutine  is  used  by  the  REVISE  MODE  to  check  the  data  item 
selected.  If  MAIL  STATUS,  data  item  number  one,  is  selected,  a validity 
check  is  made  to  verify  that  the  correct  item  was  indicated.  A valid  or 
invalid  flag  is  set  according  to  user  response  and  logic  flow  returns  to  the 
calling  routine.  Flowchart  Figure  5.4.1-23  depicts  the  flow  diagram  for  this 
subroutine. 

4.1.24  RDSUB 

This  subroutine  is  used  by  the  SEARCH  MODE  to  read  the  selected 
subfile(s)  desired  for  the  specific  data  item  search.  When  all  subfiles  are 
finished,  a read  complete  flag  is  set.  Flowchart  Figure  5.4.1-24  depicts 
the  flow  diagram  for  this  subroutine. 

4.1.25  SCRNHD 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  and  display 
on  the  terminal  the  appropriate  header  for  each  data  item  search.  Flowchart 
Figure  5.4.1-25  depicts  the  flow  diagram  for  this  subroutine. 

4.1.26  SCRNPT 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  and  display 
on  the  terminal  the  appropriate  data  items  for  a document  record  which  was 

found.  If  many  document  records  are  found  during  a search  and  it  is  observed 
that  needed  information  will  soon  disappear  from  the  screen,  the  user  may 
temporarily  stop  terminal  display  by  depressing  the  space  bar.  Terminal  display 
may  be  restarted  by  depressing  the  *Q ' key.  This  routine  also  increments  the 
number  of  documents  found  counter.  Flowchart  Figure  5.4.1-26  depicts  the  flow 

diagram  for  this  subroutine. 

4.1.27  HARDHD 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  for  the 
output  file  the  appropriate  header  for  each  data  item  search.  This  header  is 
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presented  on  each  page  of  the  output  file.  Flowchart  Figure  5.4.1-27  depicts 
the  flow  diagram  for  this  subroutine. 

4.1.28  HARDPT 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  for  the  output 
file  the  appropriate  data  items  for  a document  record  which  was  found  during  a 
specific  data  item  search.  Flowchart  Figure  5.4.1-28  depicts  the  flow  diagram 
for  this  subroutine. 

4.1.29  UPDATE 

This  subroutine  is  used  by  the  INPUT  MODE  to  delete  or  change 
document  records  in  the  ACTION  DUE  DATE  subfile.  The  updating  of  this  file 
is  determined  by  checks  on  specified  words  in  the  subject  of  the  referencing 
document.  Flowchart  Figure  5.4.1-29  depicts  the  flow  diagram  for  this 
subroutine. 


4.2  DESIGN  INFORMATION  RE LEASE/ REPORT 

4.2.1  INPTDR 

This  subroutine  is  the  input  routine  for  the  SPADS  MAIL  LOG  DIR/ 

REPORT  subfile.  The  DIR/REPORT  data  record  for  each  document  consists  of  up 
to  nine  (9)  data  items.  See  Figure  6. 2. 2.1.  The  first  item  entered  is  the 
DIR/REPORT  Number.  The  file  is  then  checked  for  a previous  entry  containing 
this  number.  If  the  number  is  found,  the  user  has  the  option  to  enter  the 
REVISE  MODE.  Normally,  changes  are  required  only  to  two  (2)  data  items:  (8) 

Revision  and  (9)  Revision  Date.  Following  each  completed  document  entry,  all 
items  are  displayed  on  the  terminal.  Flowchart  Figure  5. 4. 2-1  depicts  the 
INPUT  MODE  of  the  DIR/ REPORT  subfile. 

4.2.2  SEADR 

This  subroutine  is  the  search  routine  for  the  SPADS  MAIL  LOG 
DIR/ REPORT  subfile. 

Of  the  nine  (9)  possible  data  items  within  a DIR/REPORT  record,  all 
but  one,  REVISION,  are  searchable.  It  should  also  be  noted  that  the  Revision 
Date  is  searched  during  a DATE  search.  This  allows  the  DATE  search  to  check 
only  the  most  recent  date  associated  with  a document.  See  Figure  6. 2. 2. 2. 

The  DATE  search  has  the  capability  of  retrieving  an  entire  month's  or  year  s 
worth  of  data  by  entering  00  for  the  day  or  month.  For  example,  entering 
110078  would  result  in  finding  all  the  documents  within  the  data  base  in  the 
eleventh  month,  November,  for  the  year  1978.  Likewise,  an  entry  of  000078 
would  retrieve  all  documents  for  the  year  1978. 

There  is  a specialized  ALL  search  which  outputs  all  documents  in 
the  DIR/REPORT  subfile.  This  ALL  search  has  an  optional  output  along  with 
the  normal  output  consisting  of  the  entire  nine  (9)  item  record.  This 
optional  output  only  displays  the  number  of  documents  found  on  the  terminal  and 
automatically  spools  to  the  high  speed  printer  the  DIR  Number  and  Revision. 

The  VFHICLE  search  also  has  a special  quality.  A group  of  vehicles 
may  be  found  by  using  the  first  and  last  valid  vehicle  options.  For  example. 
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if  a user  declares  the  first  valid  vehicle  as  198  and  is  searching  for  vehicle 
number  200,  not  only  would  all  documents  containing  vehicle  200  be  found,  but 
also  those  with  numbers  198S,  199S,  and  200S;  where  S represents  all  subsequent 
vehicles.  Default  for  the  first  valid  vehicle  number  is  zero  (0)  whereas,  the 
last  valid  vehicle  number  becomes  999. 

Flowchart  Figure  5. 4. 2-2  depicts  the  SEARCH  MODE  of  the  DIR/REPORT 

subfile. 

4.2.3  RE VS DR 

This  subroutine  is  the  revise  routine  for  the  SPADS  MAIL  LOG 
DIR/REPORT  subfile. 

The  only  information  needed  in  order  to  revise  or  delete  a DIR  or 
Report  is  the  DIR  or  REPORT  Number.  Note  that  the  REVISE  MODE  may  be  entered 
in  two  (2)  ways:  a direct  REVISE  command  or  thru  an  INPUT  MODE  option.  If  a 

DIR  or  REPORT  is  entered  and  found  already  to  be  in  the  file,  the  user  may 
change  to  the  REVISE  MODE  for  modification  of  old  data  items. 

Otherwise,  when  the  desired  document  record  is  found,  it  will  be 
displayed  on  the  terminal  for  verification.  If  it  is  not  the  correct  record, 
search  for  the  document  will  continue.  After  the  revision  has  been  made,  the 
document  record  is  again  displayed  on  the  terminal  for  user  edification. 
Flowchart  Figure  5. 4. 2-3  depicts  the  REVISE  MODE  of  the  DIR/REPORT  subfile. 

4.2.4  ARCDR 

This  subroutine  is  the  archive  routine  for  the  SPADS  MAIL  LOG 
DIR/REPORT  subfile. 

The  necessary  information  needed  in  order  to  archive  a DIR  or 
Report  is  the  DIR  Number.  The  user  may  also  designate  how  many  documents 
to  be  archived  at  one  session.  The  file  in  which  all  archived  records  are 
placed  is  called  INACT.  Flowchart  Figure  5. 4. 2-4  depicts  the  ARCHIVE  MODE 
of  the  DIR/REPORT  subfile. 
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4.2.5 


SHOWDR 


This  subroutine  is  used  to  display  an  entire  data  record  on  the 
terminal  for  the  INPUT  or  REVISE  MODES.  Each  data  item  is  numbered  in  order 
to  verify  the  data  record  as  either  correctly  input  or  the  correct  record  to  be 
revised  or  deleted.  Flowchart  Figure  5. 4. 2-5  depicts  the  flow  diagram  for 
this  subroutine. 

4.2.6  INPSDR 

This  subroutine  is  used  by  the  INPUT  or  REVISE  MODES  to  input  or 
change  specific  data  items  within  a data  record.  Flowchart  Figure  5.4. 2-6 
depicts  the  flow  diagram  for  this  subroutine. 

4.2.7  ALDR 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a PRINT  ALL 
type  of  search.  This  routine  has  two  (2)  options:  a complete  listing  of 

DIR/REPORT  records  containing  the  entire  data  record  or  a partial  listing 
only  containing  the  DIR/REPORT  Number  and  REVISION.  When  the  entire  data 
record  option  is  used,  all  nine  (9)  data  items  are  displayed  on  the  terminal 
and  formatted  for  output.  During  the  partial  search  only  multiples  of  50 
are  displayed  on  the  terminal.  During  this  search  the  break  key  is  inhibited. 

When  the  DIR/REPORT  data  file  is  finished,  this  routine  automatically 
spools  the  output  file  to  the  high  speed  printer.  Flowchart  Figure  5. 4. 2-7 
depicts  the  flow  diagram  for  this  subroutine. 

4.2.8  TITDR 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  TITLE 
search.  This  procedure  allows  up  to  four  (4)  of  the  seven  (7)  possible  words 
in  the  title  to  be  searched.  As  each  title  is  found  containing  the  desired  word, 
the  entire  title  is  displayed  on  the  terminal.  If  none  are  found,  the  user 
may  restart  this  subroutine  or  return  to  the  SEARCH  MODE  which  is  normally 
done  when  the  data  file  is  finished.  When  the  final  word  has  been  searched, 
the  entire  data  record  of  document  records  found  will  be  formatted  to  an 
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output  file  and  displayed  on  the  terminal.  Flowchart  Figure  5. 4. 2-8  depicts  the 
flow  diagram  for  this  subroutine. 

4.2.9  DIRN 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  DIR/REPORT 
NUMBER  type  of  search.  If  the  desired  number  is  not  located,  a special  Not 
Found  message  is  displayed  on  the  terminal.  When  the  search  is  finished,  this 
routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5. 4. 2-9  depicts  the  flow 
diagram  for  this  subroutine. 

4.2.10  DAT DR 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  DOCUMENT 
DATE  type  of  search.  The  DATE  search  has  the  capability  of  retrieving  an 
entire  month's  or  year's  worth  of  data  by  entering  00  for  the  day  or  month. 

For  example,  entering  110078  would  result  in  finding  all  the  documents  within 
the  data  base  in  the  eleventh  month,  November,  for  the  year  1978.  Likewise, 
an  entry  of  000078  would  retrieve  all  documents  for  the  year  1978.  Flowchart 
Figure  5.4.2-10  depicts  the  flow  diagram  for  this  subroutine. 

4.2.11  WANUM 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a WORK 
AUTHORIZATION/ ID  CODE  type  of  search.  This  procedure  may  perform  partial 
searches  using  the  W.A.  Number  only  or  W.A.  Number  in  conjunction  with  the 
first  two  (2)  letters  of  the  ID  Code.  This  routine  formats  document  records 
found  and  builds  an  output  file.  When  the  file  has  been  finished,  this 
routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.2-11  depicts  the 
flow  diagram  for  this  subroutine. 

4.2.12  SYSDR 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a SYSTEM 
search.  This  routine  formats  document  records  found  and  builds  an  output 
file.  When  the  file  has  been  finished,  this  routine  returns  to  the  SEARCH 
MODE.  Flowchart  Figure  5.4.2-12  depicts  the  flow  diagram  for  this  subroutine. 
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4.2.13  CONN 


This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a CONTRACT 
NUMBER  type  of  search.  This  procedure  uses  the  CONTRACT  TABLE,  CTAB,  to  find 
the  W.A.  Number/ID  Code  associated  with  the  desired  Contract  Number.  See 
Section  6.3.2  for  further  information  concerning  the  CTAB  Table.  The  routine 
now  performs  a modified  W.A.  NUMBER/ID  CODE  type  of  search.  See  Section  4.2.11 
for  a description  of  this  search.  Flowchart  Figure  5.4.2-13  depicts  the  flow 
diagram  for  this  subroutine. 

4.2.14  VEHN 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a VEHICLE 
NUMBER  type  of  search.  The  VEHICLE  search  also  has  a special  quality.  A group 
of  vehicles  may  be  found  by  using  the  first  and  last  valid  vehicle  options. 

For  example,  if  a user  declares  the  first  valid  vehicle  as  198  and  is  searching 
for  vehicle  number  200,  not  only  would  all  documents  containing  vehicle  200 
be  found,  but  also  those  with  numbers  198S,  199S,  and  200S ; where  S represents 
all  subsequent  vehicles.  Default  for  the  first  valid  vehicle  number  is  zero 
(0)  whereas,  the  last  valid  vehicle  number  becomes  999. 

When  the  file  has  been  finished,  this  routine  returns  to  the  SEARCH 
MODE.  Flowchart  Figure  5.4.2-14  depicts  the  flow  diagram  for  this  subroutine. 

4.2.15  FMAIN 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  and  display  on 
the  terminal  the  entire  data  record  found  during  a specific  data  item  search. 
This  procedure  also  formats  the  data  record  for  the  output  file  to  be  spooled 
on  the  high  speed  printer.  The  Contract  Number  is  found  in  the  CONTRACT 
TABLE,  CTAB,  by  search  for  the  W.A.  Number/ID  Code.  See  Section  6.3.2  for 
further  information  concerning  the  CTAB  Table, 

If  many  document  records  are  found  during  a search  and  it  is  observed 
that  needed  information  will  soon  disappear  from  the  screen,  the  user  may 
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temporarily  stop  terminal  display  by  depressing  the  space  bar.  Terminal  display 
may  be  restarted  by  depressing  the  'Q 1 key.  Flowchart  Figure  5.4.2-15  depicts 
the  flow  diagram  for  this  subroutine. 

4.2.16  CMAIN 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  and  display  on 
the  terminal  the  entire  data  record  found  during  a CONTRACT  NUMBER  search, 
4.2.13*  This  procedure  also  formats  the  data  record  for  the  output  file  to 
be  spooled  on  the  high  speed  printer. 

If  many  document  records  are  found  during  a search  and  it  is  observed 
that  needed  information  will  soon  disappear  from  the  screen,  the  user  may 
temporarily  stop  terminal  display  by  depressing  the  space  bar.  Terminal 
display  may  be  restarted  by  depressing  the  ' Q 1 key.  Flowchart  Figure  5.4.2-16 
depicts  the  flow  diagram  for  this  subroutine. 
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4.3 


DRAWING/ENGINEERING  ORDER 


4.3.1  INPTDW 

This  subroutine  is  the  input  routine  for  the  SPADS  MAIL  LOG 
DRAWING/E. 0.  subfile.  The  DRAWING  subfile  data  record  consists  of  eleven 
(11)  data  items.  If  the  drawing  contains  more  than  one  (1)  sheet,  an 
additional  sheet  record  consisting  of  five  (5)  data  items  is  kept  for  each 
sheet  in  the  SHEET  subfile.  See  Figure  6. 2. 3.1.  The  ENGINEERING  ORDER 
subfile  data  record  consists  of  six  (6)  data  items.  See  Figure  6. 2. 3. 3. 

The  main  body  of  data  for  these  three  (3)  subfiles  are  sent  from  Dallas  rather 
than  manually  input.  Unfortunately,  vehicle  system  and  section  and 
engineering  order  titles  are  not  available  in  the  original  Dallas  Data  Base. 
However,  these  fields  may  be  entered  in  manually  input  Drawings  and  E.O.'s. 

The  INPUT  MODE  has  two  (2)  optional  operations: 

(1)  E.O.  - input  of  new  engineering  orders. 

(2)  Drawings  and  E.O.'s  - input  of  new  drawings  along  with  their 
referenced  E.O. 's. 

During  option  number  2,  entry  of  referenced  E.O.'s,  option 
number  1 is  automatically  performed  if  the  E.O.'s  are  new  to 
the  data  base. 

Entry  of  new  engineering  orders  may  result  in  one  (1)  of  three  (3) 
terminal  messages  if  the  drawing  sheet  already  has  three  (3),  four  (4),  or 
more  E.O.'s  referenced.  "Flowchart  Figure  5.4. 3-1  depicts  the. INPUT  MODE  of 
the  DRAWING/E. 0.  subfile. 

4.3.2  REVSDW 

This  subroutine  is  the  revise  routine  for  the  SPADS  MAIL  LOG 
DRAWING/E. 0.  subfile.  The  only  information  necessary  in  order  to  revise  or 
delete  a drawing  or  engineering  order  is  the  Drawing  Number  or  E.O.  Number. 
When  the  desired  record  is  found,  it  will  be  displayed  on  the  terminal  for 


verification.  If  it  is  not  the  correct  record,  search  for  the  desired  record 
will  continue.  After  the  revision  has  been  made  the  entire  record  is  again 
displayed  on  the  terminal  for  user  edification. 

The  REVISE  MODE  may  change  the  revision  of  a sheet.  During  this 
modification,  all  engineering  orders  referenced  by  that  drawing  sheet  are 
automatically  deleted.  The  REVISE  MODE  may  also  be  used  an  an  Input  operation 
by  adding  a new  sheet(s)  to  any  existing  drawing. 

Flowchart  Figure  5. 4. 3-2  depicts  the  REVISE  MODE  of  the  DRAWING/E. 0. 

subfile. 

4.3.3  SEADW 

This  subroutine  is  the  search  routine  for  the  SPADS  MAIL  DRAWING/E. 0. 

subfile. 


Of  the  eleven  (11)  data  items  within  the  DRAWING  subfile,  nine  (9) 
are  searchable.  The  resulting  output  from  these  searches  always  consists 

of  six  (6)  data  items.  See  Figure  6. 2. 3. 2.  The  ENGINEERING  ORDER  subfile 
consists  of  six  (6)  item  records,  of  which  only  two  (2)  are  searchable.  The 
resulting  output  from  these  two  (2)  searches  consists  of  up  to  all  six  (6) 
data  items.  It  should  be  noted  that  Revision  Date  is  output  in  place  of  the 
E.O.  Date  when  an  E.O.  has  a revision.  This  allows  only  the  most  recent  date 
to  be  displayed.  See  Figure  6. 2. 3. 4. 

Due  to  the  data  base  source  for  drawings  coming  from  Dallas  and 
manual  input,  three  (3)  searches  have  limited  capability:  SYSTEM,  SECTION, 

and  DATE.  The  SYSTEM  and  SECTION  searches  are  only  usable  for  those  drawings 
which  are  manually  input.  However,  some  Dallas  drawing  data  will  contain  this 
information  within  the  title.  Therefore,  a TITLE  search  can  be  used  if  either 
the  SYSTEM  or  SECTION  searches  are  found  unsuccessful.  The  DATE  search  is  also 
limited  in  that  all  Dallas  drawing  data  will  have  the  same  date.  This  date 
represents  the  latest  information  update  received  from  Dallas.  Nevertheless, 
the  DATE  search  has  the  capability  of  retrieving  an  entire  month's  or  year's 
worth  of  data  by  entering  00  for  the  day  or  month.  For  example,  entering 
110078  would  result  in  finding  all  drawings  within  the  data  base  in  the 


eleventh  month,  November,  for  the  year  1978.  Likewise,  an  entry  of  000078 
would  retrieve  all  documents  for  the  year  1978. 

There  are  two  (2)  specialised  searches:  REVISION  ACTION  DUE  and 

PRINT  ALL.  REVISION  ACTION  DUE  search  finds  all  drawings  containing  sheets 
which  reference  five  (5)  or  more  engineering  orders.  The  PRINT  ALL  search 
has  two  (2)  options:  (1)  Output  all  drawings  and  their  referenced  E.O.'s  or 

(2)  Output  all  engineering  orders  in  the  data  base. 

The  VEHICLE  search  also  has  some  special  qualities.  First,  the  user 
may  search  for  all  drawings  related  to  a certain  vehicle,  or  search  for  all 
engineering  orders  related  to  a certain  vehicle.  Second,  a group  of. vehicles 
may  be  found  by  using  the  first  and  last  valid  vehicle  options.  For  example, 
if  a user  declares  the  first  valid  vehicle  as  198  and  is  searching  for  vehicle 
number  200,  not  only  would  all  records  containing  vehicle  200  be  found,  but 
also  those  with  numbers  198S,  199S,  and  200S;  where  S represents  all  sub- 
sequent vehicles.  Default  for  the  first  valid  vehicle  number  is  zero  (0); 
whereas,  the  last  valid  vehicle  number  becomes  999.  . 


Another  search  also  has  the  drawing  and  engineering  order  options. 
This  is  the  E.O.  NUMBER  search.  The  user  may  search  the  ENGINEERING  ORDER 
subfile  for  a specific  E.O.  Number  or  search  the  DRAWING  subfile  for  all 
drawings  referencing  a specific  E.O.  Number.  For  an  outline  of  all  search 
capabilities  see  Figure  6. 2. 3. 5. 

Flowchart  Figure  5. 4. 3-3  depicts  the  SEARCH  MODE  of  the  DRAWING/E. 0. 

subfile. 

4.3.4  ARCDW. 

This  subroutine  is  the  archive  routine  for  the  SPADS  MAIL  LOG 
DRAWING/E. 0.  subfile.  The  only  information  needed  in  order  to  archive  a 
drawing  is  the  Drawing  Number.  The  user  may  designate  how  many  drawings  are 
to  be  archived  at  one  (1)  session.  Actual  drawing  data  archived  is  placed  in 
a file  called  INACTD.  If  the  drawing  contains  more  than  one  (1)  sheet,  the 
SHEET  subfile  is  automatically  updated.  Sheet  drawing  data  is  stored  in  a 
file  called  INACTS. 
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Engineering  order  data  records  are  automatically  archived.  E.O.'s 
unreferenced  by  any  drawings  are  placed  in  a file  called  INACTE.  Flowchart 
Figure  5. 4. 3-4  depicts  the  ARCHIVE  MODE  of  the  DRAWING/E. 0.  subfile. 

4.3.5  SHOWEO 

This  subroutine  is  used  to  display  the  entire  ENGINEERING  ORDER 
data  record  on  the  terminal  for  the  INPUT  or  REVISE  MODES.  Each  data  item 
is  numbered  in  order  to  verify  the  data  record  as  either  correctly  input  or 
the  correct  record  to  be  revised  or  deleted.  Flowchart  Figure  5. 4. 3-5  depicts 

the  flow  diagram  for  this  subroutine. 

4.3.6  SHOWDW 

This  subroutine  is  used  to  display  an  entire  DRAWING  data  record 
from  both  the  DRAW  and  SHEET  subfiles.  This  entire  data  record  is  displayed 
on  the  terminal  during  the  INPUT  or  REVISE  MODES.  Each  data  item  is  numbered 
in  order  to  verify  the  data  record  as  either  correctly  input  or  the  correct 
record  to  be  revised  or  deleted.  Flowchart  Figure  5.4. 3-6  depicts  the  flow 
diagram  for  this  subroutine. 

4.3.7  INPSE 

This  subroutine  is  used  by  the  INPUT  or  REVISE  MODES  to  input  or 
change  specific  data  items  within  the  ENGINEERING  ORDER  data  subfile.  Flowchart 
Figure  5. 4. 3-7  depicts  the  flow  diagram  for  this  subroutine. 

4.3.8  INPSDW 

This  subroutine  is  used  by  the  INPUT  or  REVISE  MODES  to  input  or 
change  specific  data  items  within  the  DRAWING  and  SHEET  data  subfiles. 

Revision  of  SHEET  data  records  is  performed  by  this  routine,  whereas,  SHEET 
data  Input  is  performed  by  another  subroutine  described  in  4.3.9.  Flow- 
chart Figure  5.4. 3-8  depicts  the  flow  diagram  for  this  procedure. 
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4.3.9 


INPSS 


This  subroutine  is  used  by  the  INPUT  MODE  to  enter  SHEET  subfile 
data  items.  If  referenced  E.O.'s  are  new  to  the  data  base,  the  user  may 
enter  the  Engineering  Order  Input  routine  described  in  4.3.7.  Flowchart 
Figure  5.4. 3-9  depicts  the  flow  diagram  for  this  procedure, 

4.3.10  FIXSHT 

This  subroutine  is  used  by  the  REVISE  MODE  to  prepare  the  SHEET 
data  subfile  for  the  input  of  a new  sheet  for  a specified  drawing.  Flow- 
chart Figure  5.4.3-10  depicts  the  flow  diagram  for  this  subroutine. 

4.3.11  SHTADD 

This  subroutine  is  used  by  the  REVISE  MODE  to  input  new  data  items 
in  the  SHEET  subfile  corresponding  to  a new  sheet  for  a specified  drawing. 

This  procedure  is  performed  in  conjunction  with  FIXSHT  described  in  4.3.10. 
Flowchart  Figure  5.4.3-11  depicts  the  flow  diagram  for  this  subroutine. 

4.3.12  NEOADD 

This  subroutine  is  used  by  the  INPUT  or  REVISE  MODES  to  add  a new 
ENGINEERING  ORDER  to  a sheet  of  a specified  drawing.  Entry  of  new  engineering 
orders  may  result  in  one  (1)  of  three  (3)  terminal  messages  if  the  drawing 
sheet  already  has  three  (3),  four  (4),  or  more  E.O.'s  referenced.  Flowchart 
Figure  5.4.3-12  depicts  the  flow  diagram  for  this  subroutine. 

4.3.13  HEADER 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  for  the  output 
file  the  appropriate  header  for  each  data  item  search.  This  header  is 
presented  on  each  page  of  the  output  file.  Flowchart  Figure  5.4.3-13  depicts 
the  flow  diagram  for  this  subroutine. 
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4.3.14  MAIND 


This  subroutine  is  used  by  the  SEARCH  MODE  to  format  and  display 
on  the  terminal  the  appropriate  DRAWING  data  items  for  each  data  record  which 
was  found  during  a REVISION  ACTION  DUE  type  of  search.  This  procedure  also 
formats  the  data  items  for  the  output  file  to  be  spooled  on  the  high  speed 
printer. 


If  many  document  records  are  found  during  a search  and  it  is 
observed  that  needed  information  will  soon  disappear  from  the  screen,  the 
user  may  temporarily  stop  terminal  display  by  depressing  the  space  bar. 
Terminal  display  may  be  restarted  by  depressing  the  ' Q ' key.  Flowchart 
Figure  5.4.3-14  depicts  the  flow  diagram  for  this  subroutine. 

4.3.15  DMAIN 

This  subroutine  is  used  by  the  SEARCH  MODE  to  format  and  display 
on  the  terminal  the  appropriate  DRAWING  data  items  for  each  data  record  which 
was  found.  This  procedure  also  formats  the  data  items  for  the  output  file 
to  be  spooled  on  the  high  speed  printer. 

If  many  document  records  are  found  during  a search  and  it  is 
observed  that  needed  information  will  soon  disappear  from  the  screen,  the 
user  may  temporarily  stop  terminal  display  by  depressing  the  space  bar. 
Terminal  display  may  be  restarted  by  depressing  the  ' Q 1 key.  Flowchart 
Figure  5.4.3-15  depicts  the  flow  diagram  for  this  subroutine. 

4.3.16  TITDW 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  TITLE 
search.  This  procedure  allows  up  to  four  (4)  of  the  seven  (7)  possible  words 
in  the  title  to  be  searched.  As  each  title  is  found  containing  the  desired 
word,  the  entire  title  is  displayed  on  the  terminal.  If  none  are  found,  the 
user  may  restart  this  subroutine  or  return  to  the  SEARCH  MODE  which  is  normally 
done  when  the  data  file  is  finished.-  When  the  final  word  has  been  searched, 
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the  appropriate  data  items  of  each  DRAWING  data  record  found  will  be  formatted 
to  an  output  file  and  displayed  on  the  terminal.  Flowchart  Figure  5.4.3-16 
depicts  the  flow  diagram  for  this  subroutine. 

4.3.17  ALDW 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a PRINT  ALL 
type  of  search.  This  routine  has  two  (2)  options:  a complete  listing  of  all 

Drawing  data  including  Engineering  Orders  or  a listing  of  Engineering  Orders 
only.  During  this  search  the  break  key  is  inhibited.  Each  DRAWING  or 
ENGINEERING  ORDER  data  record  is  formatted  for  the  output  file  and  displayed 
on  the  terminal.  When  the  designated  subfiles  are  finished,  this  routine 
automatically  spools  the  output  file  to  the  high  speed  printer.  Flowchart 
Figure  5.4.3-17  depicts  the  flow  diagram  for  this  subroutine. 

4.3.18  ACTDUE 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  REVISION 
ACTION  DUE  type  of  search.  This  procedure  searches  the  DRAWING  and  SHEET 
subfiles  for  all  Drawing  data  sheets  referencing  five  (5)  or  more  Engineering 
Orders.  Those  drawing  sheets  found  which  contain  the  correct  number  of  E.O's 
are  formatted  for  the  output  file  and  displayed  on  the  terminal.  During  this 
search  the  break  key  is  inhibited.  When  all  DRAWING  data  records  have  been 
checked,  this  routine  automatically  spools  the  output  file  to  the  high  speed 
printer.  Flowchart  Figure  5.4.3-18  depicts  the  flow  diagram  for  this  subroutine 

4.3.19  DRAWN 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  DRAWING 
NUMBER  type  of  search.  If  the  desired  number  is  not  located,  a special  Not 
Found  message  is  displayed  on  the  terminal.  When  the  search  is  finished, 
this  routine  returns  to  the  SEARCH  MODE.  Flowchart  Figure  5.4.3-19  depicts 
the  flow  diagram  for  this  subroutine. 
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4.3.20  DATDW 


This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the  DRAWING 
DATE  type  of  seairch.  The  DATE  search  has  the  capability  of  retrieving  an 
entire  month's  or  year's  worth  of  data  by  entering  00  for  the  day  or  month. 
For  example,  entering  110078  would  result  in  finding  all  the  documents 
within  the  data  base  in  the  eleventh  month,  November,  for  the  year  1978. 
Likewise,  an  entry  of  000078  would  retrieve  all  documents  for  the  year  1978. 
Flowchart  Figure  5.4.3-20  depicts  the  flow  diagram  for  this  subroutine. 

4.3.21  SYSDW 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a SYSTEM 
search.  This  routine  formats  drawings  found  and  builds  an  output  file. 

When  the  file  has  been  finished,  this  routine  returns  to  the  SEARCH  MODE. 

i 

Flowchart  Figure  5.4.3-21  depicts  the  flow  diagram  for  this  subroutine. 

4.3.22  VEHND 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a VEHICLE 
NUMBER  type  of  search.  This  procedure  has  two  (2)  options:  all  the  Drawings 

or  all  the  Engineering  Orders  related  to  a vehicle,  or  set  of  vehicles.  The 
Vehicle  search  also  has  a special  quality.  A group  of  vehicles  may  be  found 
by  using  the  first  and  last  valid  vehicle  options.  For  example,  if  a user 
del  cares  the  first  valid  vehicle  as  198  and  is  searching  for  vehicle  number 
200,  not  only  would  all  documents  containing  vehicle  200  be  found,  but  also 
those  with  numbers  198S,  199S,  and  200S;  where  S represents  all  subsequent 
vehicles.  Default  for  the  first  valid  vehicle  number  is  zero  (0)  whereas, 
the  last  valid  vehicle  number  becomes  999. 

Flowchart  Figure  5.4.3-22  depicts  the  flow  diagram  for  this 
subroutine. 
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4.3.23  SECTN 


This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a SECTION 
search.  This  routine  formats  drawings  found  and  builds  an  output  file.  When 
the  file  has  been  finished,  this  routine  returns  to  the  SEARCH  MODE.  Flowchart 
Figure  5.4.3-23  depicts  the  flow  diagram  for  this  subroutine. 

4.3.24  CODE 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  a VENDOR 
CODE  type  of  search.  This  procedure  checks  the  first  three  (3)  numbers  of 
each  drawing  number  for  a designated  code.  All  drawings  found  with  this  vendor 
code  are  formatted  for  the  output  file  and  displayed  on  the  terminal.  When  the 
file  has  been  finished,  this  routine  returns  to  the  SEARCH  MODE.  Flowchart 
Figure  5.4.3-24  depicts  the  flow  diagram  for  this  subroutine. 

4.3.25  EONN 

This  subroutine  is  called  by  the  SEARCH  MODE  to  perform  the 
ENGINEERING  ORDER  NUMBER  type  of  search.  This  procedure  has  two  options: 
locating  a specific  Engineering  Order  within  the  E.O.  data  subfile  or  search 
the  DRAWING  data  subfiles  for  all  sheets  referencing  a specific  Engineering 
Order.  If  the  first  option  is  taken  and  the  desired  E.O.  is  not  located  on 
the  E.O.  subfile,  a special  Not  Found  message  is  displayed  on  the  terminal. 
Regardless  of  the  option,  the  routine  formats  for  the  output  file  and  displays 
on  the  terminal  the  appropriate  data  items  for  data  records  found.  When  the 
search  is  finished,  this  routine  returns  to  the  SEARCH  MODE.  Flowchart 
Figure  5.4.3-25  depicts  the  flow  diagram  for  this  subroutine. 
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4.4 


GENERAL  SUBROUTINES 


4.4.1  IDENT 

This  subroutine  is  used  by  the  three  (3)  main  subfile  entrance 
.routines  to  record  the  user  identification,  time  and  date  of  entry,  and  the 
terminal  used.  The  file  used  to  store  this  information  is  called  USER  in 
each  of  the  three  (3)  program  UFD's.  Flowchart  Figure  5. 4. 4-1  depicts  the 
flow  diagram  for  this  subroutine. 

4.4.2  TINPUT 

This  subroutine  is  used  to  perform  the  basic  Title  Input  for  all 
three  (3)  subfiles.  This  procedure  is  used  in  the  INPUT  MODE  to  build  a 
seven  (7)  word,  ten  (10)  characters  per  word  searchable  title.  It  is  also 
called  during  the  REVISE  MODE  to  change  an  existing  title.  The  routine  is 
also  used  to  build  a compatible  word  for  which  to  perform  the  TITLE  search. 
Flowchart  Figure  5. 4. 4-2  depicts  the  flow  diagram  for  this  subroutine. 

4.4.3  RDCOM 

This  subroutine  is  used  by  the  Title  Input  routine,  4.4.2,  to 
construct  the  title  one  (1)  character  at  a time.  Editor  checks  are  made  for 
eraser,  kill,  and  new  line  characters.  Flowchart  Figure  5. 4. 4-3  depicts 
the  flow  diagram  for  this  subroutine. 

4.4.4  GETWRD 

This  subroutine  is  used  by  the  Title  Input  routine,  4.4.2,  to  build 
the  searchable  title  in  seven  (7)  words,  ten  (10)  characters  per  word. 
Flowchart  Figure  5. 4. 4-4  depicts  the  flow  diagram  for  this  subroutine. 
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4.4.5 


GETWD 


This  subroutine  is  used  by  the  Title  Input  routine,  4.4.2,  to  preserve 
and  store  the  title  as  input.  This  title  is  used  for  output  formatting. 
Flowchart  Figure  5. 4. 4-5  depicts  the  flow  diagram  for  this  subroutine. 

4.4.6  GETCON 

This  subroutine  is  used  by  the  MAIL  CORRESPONDENCE  and  DIR/REPORT 
subfile  programs  to  fetch  a Contract  Number  from  the  CONTRACT  TABLE,  CTAB. 

This  process  is  performed  by  searching  the  table  for  a given  Work  Authorization 
Number/ID  Code.  See  Section  6.2.3  for  further  information  concerning  the 
CTAB  Table.  If  the  search  if  unsuccessful,  a special  Not  Found  message  is 
stored  in  place  of  the  Contract  Number  and  displayed  on  the  terminal.  Flowchart 
Figure  5. 4. 4-6  depicts  the  flow  diagram  for  this  subroutine. 

4.4.7  IDUSER 

This  subroutine  is  used  by  the  ARCHIVE  MODE  routine  to  check  the 
user  identification  for  a valid  entry.  If  the  user  identification  is  not 
SYSTEM,  a special  invalid  user  message  is  displayed  on  the  terminal.  A special 
message  is  also  sent  to  the  system  terminal  to  record  the  improper  entry 
attempt  into  the  ARCHIVE  MODE.  Flowchart  Figure  5. 4. 4-7  depicts  the  flow 
diagram  for  this  subroutine. 
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5.0  FLOWCHARTS 


38 


5.1 


MAIN  ENTRIES 


5.1.1  MAIL  CORRESPONDENCE 

Figure  5.3-1  is  the  flowchart  for  the  MAIL  LOG  Program  and  MAIL 
CORRESPONDENCE  subfile  main  entry  routine. 

5.1.2  DESIGN  INFORMATION  RELEASE/REPORT 

Figure  5.3-2  is  the  flowchart  for  the  DIR/REPORT  subfile  main  entry 

routine. 

5.1.3  DRAWING/ENGINEERING  ORDER 

Figure  5.3-3  is  the  flowchart  for  the  DRAWING/E. 0.  subfile  main 
entry  routine. 
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5.2 


SUBROUTINES 


5.2.1  MAIL  CORRESPONDENCE 

Figures  5.4. 1-1  thru  5.4.1-29  are  the  flowcharts  for  the  MAIL 
CORRESPONDENCE  subfile  subroutines. 

5.2.2  DESIGN  INFORMATION  RELEASE/REPORT 

Figures  5.4. 2-1  thru  5.4.1-16  are  the  flowcharts  for  the  DIR/REPORT 
subfile  subroutines. 

5.2.3  DRAWING/ENGINEERING  ORDER 

Figures  5. 4. 3-1  thru  5.4.3-25  are  the  flowcharts  for  the^DRAWINS^E.O. 
subfile  subroutines. 

5.2.4  GENERAL 

Figures  5. 4. 4-1  thru  5. 4. 4-7  are  the  flowcharts  for  the  MAIL  LOG 
program  general  subroutines. 
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FLOWCHART  FIGURES  FOR  MAIN  ENTRIES 
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A1 

Bi  {INSERT  SYSCOM>  KEYS.  F;  COMMON/CDAT/CO ; 1NTEGER*2;  DOUBLE  PRECISION 
Cl  BREAKS (.FALSE.) 

D1  CLEAR 

El  COMI$$ ('TTY' ,3,12,IC) 

FI  WRITE  (1,100)  See  section  3. 1.2.1  page  8 

G1  WRITE  (1,125)  See  section  3. 1.2.1  page  8 

Hi  READ  (1,11)  I OPT 
J1  (IOPT.EQ. 1 QU ' ) 

K1 

* 

A2 

B2  (IOPT  - NE- 
c2  (IOPT.EQ. 'DR') 

02  (IOPT.EQ. * CO’ ) 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

33  ATCH$$( ' F_DIR' ,5,  K$ALLD,IPAS,K$IMFD+K$SETH,IC) 

C3  ATCH$S( ' F_DRAW' ,6,K$ALLD,IPAS,K$IMFD+IC$SETH,IC) 

03  SRCH$$(K$RDWR+K$NDAM,' REVS', 6,4,1,10 
E3  (IC.NE.O) 

Figure  5. 3.-1  (2  of  5) 
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F3  SRCH$$(K$RDWR+K$NDAM,'DATE',6,6,1,IC) 

G3  (IC.NE.O) 

H3  CLEAR 

J3 

K3 

A4 

B4  RESUSS ( '*DIR' ,4) 

C4  RESU$$  ('♦DRAW,  5) 

D4 

E<1  WRITE  (1,1001)  ('SORRY  - THE  MAIL  LOG  IS  CURRENTLY  IN  USE  PLEASE  TRY 

AGAIN  LATER') 

F4 

G4 

H4  IDENT 

J4 

K4 

A5 

B5  SEE  B4 

C5  SEE  B5 


D5 

E5 

F5 


G5  . 

H5  WRITE  (1,2)  See  section  3. 1.2. 2 page  9 
J5  READ  (1 ,11)I0PT 
K5 


Figure  5.3^1 
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A1 

B1  (IOPT. EQ. ' IN' ) 

Cl  (IOPT.EQ. ' RE ' ) 

D1  (IOPT.EQ. ’ S E 1 ) 

E1  (IOPT.EQ. ’ AR* ) 
n (IOPT.EQ. * QU ' ) 

G1 

HI 

J1 

K1 

A2 

B2  INPTC 
C2  REVSC 
D2  SEAC 
E2  ARCC 

F2  SRCH$$(K$CLOS, 1 REVS' ,6, 0,0,0);  SRCH$$(K$CLOS, 'DATE' ,6, 0,0,0) 


G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


Figure  5.3-1 
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* 
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- a*; 


A1  . 

B1  $ INSERT  COMMON:  SINSERT  SYSCOM  KEYS . F ; IMTEGER*2 

Cl  CLEAR 

D1  COMISS  ('TTY' ,6,12,10 

El  IDENT 

FI  BREAKS (.TRUE.) 

G1  . SRCH$S(K$RDWR+KSNDAM,'DIR' ,6,2,IT,IC) 

HI  SRCHSS ( K$RDWR+K$NDAM , ' REVS ' ,6,4,IT,IC) 

J1  SRCHSS (KSRDWR+KSNDAM,1 TEMP' ,6,6,IT,IC) 

K1 

A2 

B2  WRITE (1,3)  See  section  3. 1.2. 2 page  9 

C2  BREAKS (.FALSE.) 

D2  READ ( 1 ,4)IDES 

E2  REWIND8;  REWIND  10 

F2 

G2 

H2 

J2  (IC.NE.O) 

K2 

A3 

B3 

C3 

03 

E3 

Figure  5.3-2 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

05 

E5 

F5 

G5 

H5 

J5 

K5 


WRITE (1  ,1002)  ('DIR  FILE  IS  IN  USE  - PLEASE  TRY  LATER') 

( IDES. EQ. 'IN' ) INPTDR 
(IDES.EQ. 'SE' ) SEADR 
(IDES.EQ. ' RE  * ) REVS DR 

(IDES.EQ. 'AR' ) ARCDR 

(IDES.EQ. 'QU' ) ; IPAS(1 )=’  ';  IPAS(2)='  ';  IPAS(3)='  ' 

SRCH$$( K$CL0S , ' DIR' ,6, 0,0,0) 

SRCH$$(K$CLOS,' REVS' ,6,0, 0,0);  SRCH$$(K$CLOS, 'TEMP' ,6, 0,0,0) 
ATCH$$ ( ' F_MAI L ' ,6 , KSALLD , I PAS , K$ IMFD+K$SETH , I C ) 


CLEAR 


RESU$$( ' BFILE ' ,5) 


Figure  5.3-2 
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A1 

B1  SINSERT  COMMON;  SIHSERT  SYSCOM  > KEYS . F ; INTEGER*2 
Cl  CLEAR 

D1  COMI$$  ('TTY',  6,12, IC) 

El  1DENT 
FI  BREAKS  (.TRUE.) 

G1  SRCH$$( K$RDWR+K$NDAM, ' DRAW' ,6,2,1, IC) 

HI  (IC.NE.O) 

J1 

K1 

A2 

B2  (IC.NE.O) 

C2 

D2  • 

E2  ■ 

F2 

G2 

H2  SRCH$$(K$RDWR+K$NDAM, 1 EO ' ,6,14,1 , IC) 

J2  (IC.NE.O) 

K2 

A3 

B3  WRITE ( 1 ,3)  See  section  3. 1.2. 2 page  9 
C3  BREAK$(. FALSE.) 

D3  READ(1 ,4)IDES 
E3  REWIND  6 

Figure  5.3-3  PaSe  (2  of  6) 
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F3  REWIND  12 

G3  REWIND  18 

H3 

J3  SRCH$$(K$RDWR+K$NDAM, 'SHEET' ,6,7,1 , IC) 

K3 

A4 

B4  WRITE (1*1 002 ) ('DRAW  FILE  IS  IN  USE  - PLEASE  TRY  LATER') 
C4  SRCH$$(K$CL0S, 'DRAW', 6,0,0, 0) 

D4  SRCH$$(K$CL0S,'E0' ,6, 0,0,0) 

E4  SRCH$$(K$CL0S, 'SHEET', 6, 0,0,0) 

F4  IPAS ( 1 )='  IPAS(2)='  ' ; IPAS(3)='  ' 

G4  ATCH$S('F_MAIL',6,K$ALLD,IPAS,K$IMFD+K$SETH,IC) 

H4  RESU$$( ' BFILE ' ,5) 

J4 

K4 

A5 

B5 

C5 

D5 


E5 


F5 

G5 

H5 

J5 

K5 


Figure  5.3-3 
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A1 

B1 

see  Cl  thru  G1 

Cl 

(IDES.EQ. 1 IN' ) 

D1 

(IDES.EQ. ' SE ' ) 

El 

(IDES.EQ. ’RE!) 

FI 

(IDES.EQ. 'AR') 

G1 

(IDES.EQ. ' QU* ) 

HI 

J1 

K1 

A2 

B2 

C2 

INPTDW 

02 

REVSDW 

E2 

SEADW 

F2 

ARCDH 

G2 

H2 

J2 

K2 

A3 

33 

n 

w w 

03 

E3 

Figure  5.3-3  ?age  (5  of  6) 
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F3  CLEAR  • 

G3 

H3 

03 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

« 

F5 

G5 

H5 

05 

K5 

Figure  5.3-3  ...  PaSe  (6  of  6) 
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FLOWCHART  FIGURES  FOR  SUBROUTINES 


B1  $INSERT  COMMON;  $ INSERT  SYSCOM>  KEYS.F;  INTEGERS;  *2 

Cl  TIMDAT(A,15) 

D1  (A(13).EQ. ' JW' .0R.A(13).EQ. * NH 1 . OR . A ( 1 3 ) . EQ . * R j ' .0R.A(13).EQ. 

'DIC  .0R.A(13).EQ.  * GM* ) 

El  WRITE  (1,4)  ('SORRY,  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  MODE.') 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2  WRITE  (1,11)  ('IS  THIS  A CONTINUATION  OF  INPUT  (YES  OR  NO)') 

E2  JOUT  =0 

F2  READ  (1,10)  I OPT 

G2  (IOPT.EQ. 1 YE 1 );  (IOPT.NE. ' NO 1 ) . 

H2  WRITE  (1,14)  SEE  SECTION  4.1.1  page  12 

J2  READ  (1,10)  I OPT 

K2 
A3 

B3  (IOPT.EQ. ' NE' ) 

C3  (IOPT.EQ. 'LA') 

D3  (IOPT.EQ. 'DA') 

E3 

Figure  5. 4. 1-1  Page  (2  of  21) 


F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 


SRCH$$(K$CLOS, 1 REVS' ,6, 0,0,0) ; SRCH$$ ( K$CL0S , 1 DATE 1 ,6, 0,0,0) 
JOUT  = 1 

SRCH$$(K$DELE,' SAVE', 6, 0,0,0) 

REWIND  10 

COUNTR  =0 

WRITE  (10,16)  COUNTR 
REWIND  10 


A5 


B5 


C5 

D5  COMISS ( ' SOUT ' ,4,12,IC) 
E5 


F5 

G5 


H5 

J5 

K5 


Figure  5.4. 1-1 
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A1 

B1  SRCH$$(K$RDWR+K$NDAM, ' VC' ,3,14,1 ,IC) 

Cl  5RCH$$(K$RDWR+K$NDAM, 'OM' ,3,13,1 ,IC) 

D1  5RCH$$(K$RDWR+K$NDAM, ' IM* ,3,12,1  ,IC) 

El  (OOUT.EQ.l ) 

FI  OPEN 

G1  SRCH$$(K$RDWR+K$NDAM, 'ACTD' ,6,5,1 ,IC) 

HI  ITRSP  = 1 

J1  REWIND  10 

K1 
A 2 

B2  READ  (10,16)  COUNTR 

C2  REWIND  10 

DO  READ  (6,  END  = 2000)MS,ATHR,DD, TO, DLN, SUB, PUT, ROUT, IDD, COUNT, CWA, 

CONT , ADD , TWX , FSC , NRE , DDT 

E2  DO  2010  IN  = 11,15;  READ  (IN, END  = 2010)MS,ATHR,DD,T0,DLN,SUB,PTIT, 

ROUT , I DD , COU  NT , CWA , CONT , ADD , TWX , FSC , NRE 

F2  DO  2005  IN  = 16,18;  READ  (IN, END  = 2005)MS,ATHR,DD,T0,DLN,SUB,PTIT, 

ROUT , I DD , COUNT , CWA , CONT , ADD , TWX , FSC , NRE 

G2  READ  (9, END  = 2060)ATHR,DLN,PTIT,IDD,C0UNT,ADD,FSC,NRE 

H2  WRITE  (1,20);  WRITE  (1 ,30) ( 'FIRST  - PLEASE  ENTER  THE  CURRENT  INPUT  DATE') 

J2  READ  (1 ,40, ERR  = 1001)  IM,ID,IY 

K2 

A3 

B3  REWIND  10 

C3  WRITE  (10,17)  IM, ID, IY, COUNTR 

D3  REWIND  10 

E3  (JOUT.EQ.l ) 
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F3 

R = 0 

- 

G3 

INPSC 

H3 

J3 

(1M.GT.12.0R.ID.GT.31);  (IY.EQ.0.0R.IM.EQ.0.0R.ID.EQ.0) 

K3 

• 

k, 

A4 

B4 

WRITE  (1,1003) 

C4 

READ  (1,1004, ERR  = T002)  IFILE 

D4 

(IFILE.LE.O.OR. IFILE.GT.6) 

E4 

F4 

• 

G4 

COUNTR  = COUNTR  +1 

H4 

COUNT  = COUNTR 

J4 

K4 

A5 

B5) 

C5 

D5 

E5 

F5 

G5 

H5 

*« 

05 

K5 

* 

Figure  5.4. 1-1  * Page  (6  of  21) 


- 62  - 


- J 


: 6 


WRITE  /' 
RECORD  / • 


TO  MISCEL1T 
SUBFILE  / : 


63 


A1 

B1  (IFILE.EQ.l) 

Cl  (IFILE.EQ.2) 

D1  (IFILE.EQ.3) 

El  (IFILE.EQ.4) 

FI  (IFILE.EQ.5) 

G1  ( I FILE . EQ.6) 

HI 

J1 

K1 

A2 

B2 

C2  WRITE  (6)  MS, ATHR, DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, CONT, ADD, TWX 
FSC,NRE,DDT 

D2  WRITE  (11)  MS , ATHR , DD ,TO , DLN , SUB , PT IT , ROUT , I DD , COUNT ,CWA , CONT , ADD , TWX , 
FSC.NRE 

E2  WRITE  (12)  MS, ATHR, DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA,CONT,ADD, TWX, 
FSC,NRE 

F2  WRITE  (13)  MS, ATHR, DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, CONT, ADD, TWX, 
FSC.NRE 

G2  WRITE  (14)  MS, ATHR, DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA,CONT,ADD, TWX, 
FSC.NRE 

H2  WRITE  (15)  MS, ATHR, DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, CONT, ADD, TWX, 

FSC.NRE 

J2 

K2 

A3 

B3 

C3  (MS. EQ. * VC ' ) 

D3  (MS.EQ. ' OM ’ ) 

E3  (MS.EQ. ' 
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F3 

63 

(ADDO).NE.O) 

H3 

J3 

** 

K3 

A4 

r 

B4 

C4 

FScInRe! DDTMS ’ ATHR  * DD ,T0  jDLN  * SUB . pTIT , ROUT , IDD, COUNT , CWA, CONT ,ADD,TWX , 

D4 

fscInre]ddtMS,ATHR>DD’TO’DLN’sub’ptit’ROUT9IDD’count’cwa»cont»add>twx» 

E4 

FScInRE ! DDTMS ’ ATHR ’ DD ’ T0 ’ DLN ’ SUB » PTIT » POUT , IDD , COUNT , CWA , CONT .ADD ,TWX , 

F4 

G4 

WRITE  (9)  ATHR.DLN.PTIT, IDD, COUNT, ADD, FSC.NRE 

H4 

(MS. EQ. * IM* ) 

J4 

DO  30001  = 1,6;  DO  3001J  = 1,5;  (TWX(I.J).NE. ‘ ') 

K4 

A5 

B5 

WRITE  (1,3020) 

C5 

UPDATE 

D5 

E5 

WRITE  (1,70) 

F5 

READ  (1 ,10)1 OPT 

% 
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H5 
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J5 
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K5 
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RETURN 
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A1 

B1  (IOPT.EQ.'YE');  (IOPT.NE. 'NO' ) 

Cl  CLOSE 

D1  SRCH$$ ( KSCLOS , 1 ACTD ' ,6, 0,0,0) 

El  REWIND  10 

pi  WRITE  (10,17)  IM,ID,IY ,C0UNTR 
G1  REWIND  10 

HI  WRITE  (1,112) 

J1  READ  (1 ,10)I0PT 

K1 

A2 

B2  (IOPT.EQ.  'NO-' ) 

C2  (IOPT.NE. 'WA' ) 

D2 
E2 
F2 
G2 
H2 
' J2 
K2 
A3 
B3 

C3  SRCH$$( KSCLOS, 'VC' ,3, 0,0,0) 

03  SRCH$$( KSCLOS, ' OM ' ,3, 0,0,0) 

E3  SRCH$$ ( KSCLOS, ' IM ' ,3, 0,0,0) 
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F3 
G3 
H3 
o 3 
K3 
A4 

B4  IHARD  = 0 

C4  SRCH$$(K$RDWR+K$NSAM, 'OUT' ,6, 3, 0,0) 

D4  WRITE  (1,50) 

E4  READ  (1 ,10)I0PT 

F4  (IOPT.EQ. 'NO' );  (IOPT.NE. ' YE' ) 

G4 

H4 

J4 

K4 

A5 

35 

C5 

D5 

E5 

F5  IHARD  = 1 

G5  REWIND  18;  REWIND  17;  REWIND  16 

H5  IN  = 15 
J5 
K5 
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A1 

B1  IN  = IN  + 1 

Cl  I PAGE  = 0 

D1  I COUNT  = 1 

El  READ  (IN, END  = 1090)MS,ATHR,DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, 
CONT , ADD , TWX , FSC , NRE , DDT 

FI  SEE  El 

G1  (IPAGE.NE.O) 

HI  WRITE  (7,140) 

J1  IPAGE  = IPAGE  +2 

K1 

A2 

B2  WRITE  (7,1 50)IC0UNT,PTIT,DD,FSC,ATHR,T0,R0UT,DLN 

C2  IPAGE  = IPAGE  + 2 

D2  (IHARD.EQ.O) 

E2  I COUNT  = I COUNT  + 1 

F2  (IHARD.NE. 0) 

G2  (IPAGE. GE. 47) 

H2 

J2 

K2 

A3 

B3  (IN.NE.18) 

C3 

D3 

E3 
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F3  (IPAGE. GE.40) 

G3  IPAGE  =0 

H3 

J3 

K3 

A4 

B4  (IHARD.EQ.0) 

C4  SRCH$$( KSCLOS, 'OUT' ,6, 0,0,0) 

D4  SRCH$$ ( KSCLOS , ' DATE ' , 6 , 0 , 0 , 0 ) ; SRCH$$ ( K$CLOS , ' REVS ' , 6 ,0 , 0 , 0 ) 

E4 

F4  IPAGE  = 0 

G4 

H4  • ... 

04 

K4 

A5 

B5  I HARD  = 0 

C5 

D5  SRCH$S( KSCLOS, 'VC' ,3,0,0,0) ; SRCH$$(K$CLOS, ' OM' ,3, 0,0,0); 

SRCHSS( KSCLOS,' IM' ,3, 0,0,0) 

E5  SRCHSS ( KSDELE , 'VC' ,3, 0,0,0) ; SRCH$$(K$DELE, ' OM 1 ,3, 0,0,0) ; 

SRCH$$(K$DELE, 1 IM' ,3, 0,0,0) 

F5  COMISS ('OUTS’, 4,12,IC) 

G5 

H5 

J5 

K5 

Figure  5.4. 1-1  PaQS  (15  of  21) 

- 71  - 


--K2  - -*• 


• K4 


r-  K5  - + : 


Figure  5.4. 1-1 





- 72  - 


- ■ 

I 

Page  (16  of  2T) 


A1 

B1 

Cl 

01 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

F2 

G2 


WRITE  (7,80) 

(IN.EQ.18) 

(IN.EQ.17) 

( IN. E0. 16) 


WRITE  (7,90)  IM,ID,IY 
WRITE  (7,100)  IM,ID,IY 
WRITE  (7,110)  IM,ID,IY 


« * r* 

n c 

10 

u: 


KZ 

A3 

53 


C3 
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F3  WRITE  (7,120) 

G3  (IHARD.EQ.O) 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4" 

G4  WRITE  (7,130) 

H4 
J4 
K4 
A 5 
B5 
C5 
D5 
E5 
F5 

G5  I PAGE  = I PAGE  + 4 
H5  WRITE  (7,85) 

J5  IPAGE  = IPAGE  + 5 
K5 
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A1  ' 

B1  WRITE  (7,160)  ADD, CWA,C0NT 

Cl  IPAGE  = IPAGE  +1 

D1  ILINE  = 0 

E1  KRE  = 0 

FI  DO  1 301 L = 1,3;  (NRE(1 ,L).NE. ' ')  KRE  = KRE  + 1;  (KRE.EQ.O) 

G1 

HI 

J1 

K1 

♦ 

A2  • 

B2  ILINE  = 0 

C2  KTW  = 0 

02  DO  1200M  = 1,6;  DO  1202N  =.1,5;  (TWX(M,N) .NE'  1 ) KTW  =KTW  + .;  (KTW.EQ.O) 
E2 

F2  WRITE  (7,170)  ( NRE ( 1 ,L) , L = 1,3) 

G2  ILINE  = ILINE  + 1;  IPAGE  = IPAGE  + 1 
H2  (ILINE. NE.O) 

J2 

K2 

A3 

B3 

C3 

D3  WRITE  (7,1205)  (TWX(M,N),N  = 1,5) 
r-5  ILINE  = ILINE  +1;  IPAGE  = IPAGE  + 1 

L J 
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F3  (ILINE.NE.O) 

63 

H3  WRITE  (7,175) 

J3  IPAGE  = IPAGE  + 1 

K3 

A4 

B4  Performed  by  H4 

C4  DOT 401 J=1 ,21 ; (DDT ( I , J ) . NE . 1 ')  KDD=KDD+1 ; (KDD.EQ.O) 

D4 

E4 

F4  WRITE  (7,1210) 

G4  IPAGE  = IPAGE  + 1 

H4  DO  1400  I = 1,30 

04 
K4 
A5 
B5 

C5  WRITE  (7,180)  (DDT(I,0),0  = 1,21) 

D5  IPAGE  = IPAGE  +1 

E5  . 

F5 

G5 

H5 

05 
K5 
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A1 

B1 

Cl  SINSERT  COMMON;  $ INSERT  SYSCOM>  KEYS.F;  INTEGERS;  *2 
D1  7INISH=0 
El  IA=0 
FI  CLEAR 
G1  TIMDAT(A,15) 

HI  (A(13).EQ. ' JW' .OR.A(13).EQ. 'NH' .0R.A(13).EQ. 'RJ' .0R.A(13).EQ. 'DK' ) 

J1  WRITE(1 ,4)  ('SORRY,  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  MODE') 

K1 

A2 

B2 

C2  (ITRSP.EQ.O) 

D2 

E2 

F2 

G2 

H2  WRITE ( 1 ,1 ) 

02  READ (1 ,2,ERR=3)  D.ICOUN 
K2  WHERE 
A3 
B3 

C3  READ(6,END=200)MS,ATHR,DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, 

CWA , CONT , ADD , TWX , FSC , NRE , DDT 

D3  SEE  B3 

E3  (FINISH. EQ.l) 

(ICOUN.NE. COUNT);  D0110I=1,3;  (IDD(I) .NE.D(I)) 
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F3  WR ITE ( 8 ) MS , ATHR , DD ,T0 , DLN , SUB , PTIT , ROUT , I DD , COUNT , CWA , CONT , ADD ,TWX , 

FSC,NRE,DDT 

G3 

H3 

J3 

K3 

A4 

B4 

C4  END  FILE  8 
D4 

E4  SHOWC 
F4  WRITE ( 1 ,1700) 

G4  READ(1,50)I0PT 

H4  (IOPT.EO. ' NO ' ) ; (IOPT.NE. * YE  * ) 

J4 

K4 

A5 

B5 

C5  SRCH$$(K$CLOS, 'TRAN' ,6, 0,0,0) 

D5  SRCH$$ ( K$DELE , 1 TRAN ' ,6, 0,0,0) 

E5  CNAM$$( 1 REVS' ,6, 'TRAN' ,6,IC) 

F5  SRCH$$ (KSRDWR+KSNDAM,' REVS' ,6,4,1, IC) 

G5 

H5  WRITE ( 1 ,2100) 

J5  READ ( 1 ,50) IOPT 
K5 
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A1 


B1  (IOPT.EQ. * RE ' ) 

Cl  (IOPT.NE. 'DE') 

D1 

El 

FI  (FINISH. EQ.l) 

G1  (IMELE.EQ.O) 

HI  IN=11 
J1 
K1 
A2 

B2  R=1 
C2  FINISH2 1 

D2  . 

E2 

F2 

G2  (ITWFX.EQ.O) 

H2  IN=1 2 

J2 

K2 

A3 

B3  INPSC 
C3  FINISH=1 

D3 

— 

L.0 
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F3 

G3 

(IANN.EQ.O) 

H3 

IN=13 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

(IPR.EQ.O) 

H4 

IN=14 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

• 

H5 

J5 

K5 
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Figure  5.4. 1-2 


A1 

B1  (IMIS.EQ.O) 

Cl  IN=15 

D1  READ ( IN  9 END=201 )MS,ATHR,DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, 

CONT , ADD , TWX , FSC , NRE 

El  SEE  D1 

FI  (FINISH. EQ. 1 ) 

G1  (COUNT. NE.ICOUNT);  DOll 1 1=1 ,3;  (IDD(I).NE.D(I)) 

HI  WRITE(8)MS,ATHR,DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, CONT, ADD, 

TWX, FSC, NRE 

J1 

K1 

A2  ' 

B2  (IA.EQ.O) 

C2 

D2 

E2 

F2 

G2  (ITRSP.EQ.O) 

H2  ITRSP=0 
J2  IA=0 
K2 
A3 

B3  ITRSP=1 
C3  IA=0 
D3  WRITE(1 ,1700) 

E3  READ(1 ,50) I OPT 
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F3 


(IOPT.EQ. 'NO');  (IOPT.NE. ' YE' ) 


63 

H3 

J3 

SHOWC 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

WRITE (1,21 00) 

G4 

READ(1 ,50) IOPT 

H4 

(IOPT.EQ. 'RE' ) 

J4 

(IOPT.NE. 'DE' ) 

K4 

A5 

B5 

R=1 

C5 

INPSC 

D5 

FINISH=1 

E5 

F5 

G5 

H5 

J5 

FINISH=1 

K5 
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A1 

B1  ENDFILE  8 
Cl 

01  (IN.EQ.ll ) 

El  (IN.EQ.12) 

FT  (IN. EQ .13) 

G1  (IN. EQ. 14) 

HI  ( IN. EQ. 15) 

J1 

K1 

A2 

B2 

C2 

D2  SRCHSS (KSCLOS, 'MEMO' ,6, 0,0*0);  SRCHS$(K$DELE, 'MEMO' ,6, 0,0,0) 

E2  SRCHSS ( KSCLOS , ' TWFX ' ,6, 0,0,0);  SRCH$$(K$DELE, 'TWFX ' ,6, 0,0,0) 

F2  SRCHSS ( KSCLOS , ' ANN ' ,6, 0,0,0);  SRCH$$(KSDELE, 'ANN' ,6, 0,0,0) 

G2  SRCHSS ( KSCLOS , ' PR ' ,6, 0,0,0);  SRCH$$(K$DELE, 'PR' ,6, 0,0,0) 

H2  SRCHSS (K$CLOS, 'MIS', 6, 0,0,0);  SRCH$S(K$DELE, 'MIS ' ,6,0; 0,0) 

J2 

K2 

A3 

B3  • 

C3 

D3  CNAM$$( 'REVS’ ,6, 'MEMO' ,6,IC) 

E3  CNAM$$(  'REVS ' ,6, ' TV/FX ' 
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F3  CNAM$$( 'REVS' ,6, 'ANN' ,6,IC) 

63  CNAM$$( ' REVS' ,6, 'PR' ,6,10  . 
H3  CNAM$$( ' REVS' ,6, 'MIS'  ,6,IC) 

03 

K3 

A4 

B4 

C4 

D4  SRCH$$ ( K$RDWR+K$NDAM , 'REVS' ,6 
£4  SRCH$$(K$RDWR+K$NDAM, ' REVS' ,6 
P4  SRCH$$(K$RDWR+K$NDAM, 'REVS' ,6 

G4  SRCH$$( K$RDWR+K$NDAM, ' REVS ' ,6 
H4  SRCH$$(K$RDWR+K$NDAM, 'REVS' ,6 


4,1  ,IC) 
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A!  $ INSERT  COMMON;  SlNSERT  SYSCOM  > KEYS . F ; INTEGERS;  *2 
B1  CLEAR 

Cl  SRCH$$ ( K$RDWR+K$NSAM , 1 OUT ' , 6 , 3 , 0 , 0 ) 

D1  •WRITE  (1,1) 

El  READ ( 1 ,3) IDES 
FI  (IDES(l).EQ. 1 QU  * ) 

G1  (IRR.EQ.l ) 

HI 

J1 

Kl 

A2  ' • 

B2  REWIND  10 

C2  READ (10, 2005)  COUNTR 

D2  REWIND  10 

E2  WRITE  (10, 2003)IM, ID, IY, COUNTR 
F2  REWIND  10 
G2 

H2  WRITE  (1,2001) 

J2  READ  (1 ,2002 ,ERR=50)  IM,ID,IY 

K2 

A3 

B3 

C3 

D3 

E3 
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F3 
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G4 

H4 
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F5 

G5 
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J5 
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JTIME(IY,IMsID,0,0,0,CD) 

IRR=1 


( IDES ( 1 ) ,NE. 1 AL' .AND. IDES ( 1 ) .NE. ' DO' .AND. IDES(1 ) .NE. ' ID' .AND. 
IDES(l).NE.'AD') 

SEE  B4-C4 

SEE  B4-C4 
BRAKET 
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jj.  RESEA 

1 

SUBJ 

! SEARCH 

* 

SEARCH 

SUBJECT 

1 

M 

j|  WHO 

i 

]!  SEARCH 

i ^MAIL  Y 

SEARCH 

i ADDRESSEE 

* \ STATUS  y , 

MAIL 

i! 

, 

i j i 

STATUS 

N 

-E3  - 


rB5  1 


(“C5-  + j 


L_. 


ALC 

i > 

datc 

1 SEARCH 

!XS™pu1\Ly 

SEARCH 

j ALL  SUBFILES 

~\UHI  L 

y • 

INPUT  ; 

! 

J 

1 \ 
1 

yy  i 

t 

DATE 

rD5 


5.4.1-20 


5.4.1-21  : 


5.4.1-22  1 


! DDAT 

■ 

ADAT 

i SEARCH 

1 

SEARCH 

DOCUMENT 

ACTION 

i DATE 

DUE 

- G5  — « — 


-O 


■ H5  - 


KC 
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r K5  - ; 
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B1 

(IDES(l).EQ. 

’AD') 

Cl 

WHERE 

01 

(IDES(l).EQ. 

’AL') 

El 

(IDES(l).EQ. 

'HR') 

FI 

(IDES(l).EQ. 

'TO') 

G1 

(IDES(l).EQ. 

'DO') 

HI 

(IDES(l).EQ. 

'CO') 

J1 

( IDES ( 1 ) . EQ. 

* cw  • ) 

K1 

• 

A2 

B2 

C2 

D2 

ALC 

r? 

RESEA 

F2 

WHO 

G2 

DDAT 

H2 

CNUM 

J2 

CWAID 

K2 

A3 

B3 

( IDES ( 1 ) . EQ. 

1 AU ' ) 

C3 

(IDES(l).EQ. 1 

' DL' ) 

D3 

(IDES(l).EQ. 1 

'ID') 

E3 

( IDES ( 1 ) .EQ. 1 

1 SU' ) 

F3  (IDES(l).EQ.'MS') 

G3  (IDES(l).EQ.'AD') 

H3 

J3 

K3 

A4 

B4  AUSEA 
C4  DLSEA 
D4  DATC 
£4  SUBJ 
P4  MSTAT 
G4  ADAT 

H4 

J4 

* 

\4 

A5 

35 

C5 


n •- 

bo 

I I w 

J5 

.<5 
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A1 

B1  WRITE  (1,101) 

Cl  READ  (1,3)  IDES 
D1  ( IDES ( 1 ).NE. ' ') 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2  CLOSE 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

33  WRITE  (1,11) 

C3  SRCH$$(K$CLOS, 'OUT' ,6, 0,0,0) 

D3  READ(1 ,5)  IOPT 

E3  (IOPT. EQ. 'YE');  (IOPT.NE. 'NO' ) 

Figure  5.4. 1-3 
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p3  SRCH$$(K$DELE, 'OUT' ,6,0, 0,0) 

63 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4  SRCH$$(K$CLOS,' REVS' ,6, 0,0,0) 
F4  SRCH$$ ( KSCLOS , ' DATE ' ,6, 0,0,0) 
24  COMI$$ ( ' SOUT ' ,4,12,IC) 

H4 

J4 

K- 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 


Figure  5. 4. 1-3 
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A1 

B1  $ INSERT  COMMON;  $ INSERT  SYSCOM  > KEYS . F ; INTEGERS;  *2 

Cl  TIMDAT(A,15) 

D1  (A( 1 3 ) . NE. ' SY ' ) 

El  WRITE  (1,701)  ('SORRY  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  ROUTINE.') 

FI 

G1 

HI  . 

J1 

K1 

A2 

B2 

C2 

D2  WRITE  (1,1) 

E2  READ(1 ,2,ERR=3)D,IC0UN 
F2  WRITE  (1,11) 

G2  READ  (1,1 2) IANS 
H2  (IANS. GT.6. OR. IANS. LT.l) 

J2 

K2 

A3 

B3  READ ( 9 , END=20 )MS , ATHR , DD ,T0 , DLN , SUB , PTIT , ROUT , IDD , COUNT , CWA , CONT , 

ADD , TWX , FSC , NRE , DDT 

C3  REWIND  6 

D3  READ ( 6 , END=200)MS , ATHR , DD ,T0 , DLN , SUB , PTIT , ROUT , I DD , COUNT , CWA , CONT , 

ADD, TWX, FSC, NRE, DDT 

E3  SEE  D3 
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F3  (COUNT. NE.ICOUN);  DO  1101=1,3;  (IDD(I).NE.D(I)) 

G3  WRITE(8)MS,ATHR,DD,T0,DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA,C0NT, ADD, TWX,FSC, 
NRE,DDT 

H3  (IANS.GE.2) 

J3 

K3 

A4 

B4 

C4 

D4 

E4  END  FILE  8;  END  FILE  9 

F4  WRITE(9)MS,ATHR,DD,T0,DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA,CONT, ADD ,TWX, 
FSC,NRE,DDT 

G4 

H4  SRCH$$(K$RDWR+K$NDAM,' TRAN' ,6,2,1,IC) 

J4  SRCH$$(K$RDWR+K$NDAM, ' INACTL' ,6,5,1 ,IC) 

K4 

A5 

B5 

C5 

D5 

E5  SRCH$$(K$CLOS, 'REVS’ ,6, 0,0,0) 

F5  SRCH$$(K$CLOS,' INACTL', 6, 0,0,0) 

G5  SRCH$$(K$CLOS, 'TRAN', 6, 0,0,0) 

H5  SRCH$$(K$DELE, 'TRAN' ,6, 0,0,0) 

J5  CNAM$S( 'REVS' ,6, 'TRAN' ,6,IC) 

K5 
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A1 


B1 

Cl  (IANS.EQ.2) 

D1  (IANS.EQ.3) 

El  (IANS.EQ.4) 

FI  (IANS.EQ.5) 

G1  (IANS.EQ.6) 

HI 

J1 

K1 

A2 

B2 

C2  SRCH$$(K$RDWR+K$NDAM, 'MEMO' ,6,7,1 ,IC) 

D2  SRCH$$(K$RDWR+K$NDAM, 'TWFX' ,6,8,1 ,IC) 

E2  SRCH$$ ( K$RDV1R+K$NDAM , ' ANN ' ,6,9,1,IC) 

F2  SRCH$$(K$RDWR+K$NDAM, 'PR' ,6,10,1 ,IC) 

G2  SRCH$$(K$RDWR+K$NDAM, 'MIS' ,6,11 ,1 ,IC) 

H2 

J2 

K2 

A3 

B3  REWIND  IN 

C3  READ(IN,END=450)MS,ATHR,DD, TO, DLN, SUB. PTIT, ROUT, IDD, COUNT, CWA.CONT, 
ADD,TWX,FSC,NRE 

D3  SEE  C3 

E3  (COUNT. NE. ICOUN) ; 003901=1,3;  (IDD(I).NE.D(I)) 
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F3  WRITE (8)MS,ATHR,DD, TO, DLN ,SUB, PTIT, ROUT, IDD, COUNT, CWA, CONT, ADD, 

TWX,FSC,NRE 

63  SRCH$$(K$RDWR+K$NDAM, ' INACTS 1 ,6,5,1 , IC) 

H3  READ(9,END=320)MS,ATHR,DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, 
CONT , ADD , TWX , ESC , NRE 

J3  IN=IANS+9 

K3 

A4 

B4 

C4 

D4  END  FILE  8;  END  FILE  9 

E4  WRITE(9)MS,ATHR,DD, TO, DLN, SUB, PTIT, ROUT, IDD, COUNT, CWA, CONT, ADD, 

TWX,FSC,NRE 


F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

65 

H5 

J5 

K5 


Figure  5.4. 1-4 
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1 

t 


SRCHSS 

CLOSE 

I PURCH  REO 
I SUBFILE 


| SRCHSS 

CLOSE 

S 

SRCHSS 

DELETE 

CKAMSS 

CHANGE 

LrSJ 

SRCHSS 

OPEN 

MISCELL 

SUBFILE 

|| 

|| 

REVS  TO 
MIS 

west 

■ 

/ERROR  / 
’ / MESSAGE 
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r*  K5  — ■ 


4 RETURN  j 

•' 

I 
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A1 

B1  $RCH$$(K$CLOS, 'REVS' ,6, 0,0,0) 

Cl  SRCHSS (KSCLOS, 1 INACTS' ,6, 0,0,0) 

D1 

El  (IN.NE.ll) 

FI  (IN.NE.12) 

61  (IN.NE.13) 

HI  (IN.NE.14) 

J1  (IN. NE. 15) 

K1  WRITE (1 ,480)  ('AN  ERROR  IN  FILE  MANAGEMENT  SYSTEM  HAS  OCCURRED! - ) 

# 

A2  • 

B2 

C2 

D2  . 

E2  SRCHSS ( KSCLOS , ' MEMO 1 ,6, 0,0,0) 

F2  SRCH$$(K$CL0S, ' TWFX ' ,6, 0,0,0) 

G2  SRCH$$(K$CLOS, 'ANN' ,6, 0,0,0) 

H2  SRCH$$ ( KSCLOS, ' PR' ,6, 0,0,0) 

J2  SRCHSS (KSCLOS, 'MIS' ,6, 0,0,0) 

K2 

A3 

B3 

C3 

D3 

E3  SRCh$$(kSDELE,'MEM0',6,0,0,0) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 


05 


K5 


SRCH$$(K$DELE,'TWFX',6,0,0,0) 
SRCH$$(K$DELE, ' ANN* ,6, 0,0,0) 
SRCH$$(K$DELE, 'PR' , 6,0,0, 0) 
SRCH$$(K$DELE, 'MIS', 6, 0,0,0) 


CNAM$$( 'REVS' ,6, 'MEMO' ,6,IC) 
CNAM$$ (' REVS', 6, 'TWFX ',6,IC) 
CNAM$$ ( ' REVS ' , 6 , ' ANN 1 , 6 , IC ) 
CNAM$$( ' REVS' ,6,'PR' ,6,IC) 
CNAM$$('REVS\6'MIS',6,IC). 


SRCHSS ( KSRdWR+KSNdAM , ' REVS 1 ,6,4,1  ,IC) 
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ft 

A1. 

B1  $ INSERT  COMMON 
Cl  CLEAR 

D1  WRITE (1 ,10)MS,ATHR,DD,T0,DLN,SUB,R0UT,IDD,CWA,C0NT,ADD 

El  D0810M=1 ,6;  KTW=0;  D0820N=1,5;  (TWX(M,N) .NE. ' ’); 

KTW=KTW+1 ; (KTW.EQ.O) 

FI 

G1 

HI 


J1 

K1 

A2 

B2 

C2 

D2 

E2  WRITE( 1,800);  WRITE(1,850)  (TWX(M,N) ,N=1 ,5) 


F2  WRITE ( 1 ,1000)FSC 

G2  KRE=0;  D01400L=1,3;  (NRE(1 ,L) .NE. ' ');  KRE=KRE+1 ; (KRE.EQ.O) 

H2 


J2 


K2 


A3 

B3 

C3 

D3 

E3 
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F3 


G3  WRITE(1  *1200);  WRITE(1,270)  (HRE(U),M,3) 
H3  (ITRSP.EQ.O) 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 


H4 


DO  15001=1,30;  KDD=0; 
KDD+1;  (KDD.EQ.O) 


D01600J=1 ,21 ; 


(DDT(I,J).NE. 1 


J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5  WRITE(1, 1100);  WRITE(1, 180)  (DDT(I,J) ,J=1 ,21 ) 
J5 

K5 


');  KDD= 
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AT 


SI 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 


$ INSERT  COMMON;  INTEGER*4;  *2 
(R.EQ.O) 

WRITE (1 ,1 ) 

READ(1 ,10,ERR=2)IKNT 
(IKNT.LT.O);  (IKNT.GT.14) 


DO  9999  LP  = 1 , I KNT , 1 


G2  performed  by  F2 
H2  WRITE  (1,3) 

J2  READ(1 ,10,ERR=5)IR 


K2 

A3 

B3 

C3 

03 


CKIR ( IR , I ) - 
(I.GT.O) 


E3 
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F3 

G3  SHOWC 
H3  WRITE (1 ,2303) 

J3  READ (1,2300) I OPT 

K3 

A4 

B4 

C4 

D4 

E4  ' 

F4 

G4 

H4 

J4  (IOPT.EQ. ' RE ' ) ; (IOPT.NE. 'CO' ) 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 
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AT 

BT  (R.EQ.l .AND. IR.NE.l ) 

Cl  WRITE  (1 ,101 ) 

Di  READ ( 1 ,104,ERR=103)MS 

El  (MS.EQ.'VC');  (MS.EQ. ' IM ' );  (MS. E0. ' OM 1 ) 

FI  WRITE (1 ,106)MS 

G1 

HI 

J1 

K1 

♦ 

A2  • 

B2  SEE  B1 

C2  (R.EQ.l .AND. IR.NE.2) 


D2 

E2  WRITE(1,10A)MS 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3  SEE  C2 

D3  (R.EQ.l .AND. IR.NE.3) 
E3  WRITE (1 ,302) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 


E5 


re 


S5 


J5 

K5 


READ  (1 ,303,ERR=301 )DD 
(DD(1).GT.12);  (DD(2).GT.31 ) 


SEE  D3 


WRITE (1, 303 )DD 


WRITE (1,202) 

READ (1, 203, ERR=201)ATHR 
WRITE(1 ,203)ATHR 
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N 


N 


"T 


■ C5 


• / WRITE  /i 
/ENTER  /• 
y ADDRESSEE  / j 


' / READ 
! /TO 
"7  ENTRY 


1 / WRITE 
: / ADDRESSEE 

7/ on  • , 

./  TERMINAL  / 


REVISE 


i X. 1 

i / WRITE  / ! 

i /enter  h 
7 doc/letter/  T 

7 NUMBER  / i 


KiC 


r REVISE^ 


/ READ 
/DOC.  NO 
I ENTRY 


r-  04-  ; 

• ^^evisNJ 
'7cns^bject/^^ 

iT  1 1 


-E5—  -I 
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A1  (R.EQ.l .AND. IR.NE.4) 

B1  WRITE (1,402) 

Cl  READ(1,403,ERR=401)T0 

D1  WRITE(1 ,403)T0 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2  SEE  B1 

C2  (R.EQ.1.AND.IR.NE.5) 

D2  WRITE ( 1 ,502) 

E2  READ ( 1 ,503,ERR=501  )DLN  ■ 

F2  WRITE ( 1 ,503)DLN 

G2 

H2 

J2 

K2 

A3 

B3 

C3  SEE  C2 

D3  (R.EQ.l .AND. IR.NE.6) 

E3  WRITE (1 ,602) 
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F3  LEN=10 
63  TINPUT(TIT,LEN) 

H3  D0610IJ=1 ,21 ; SUB(IJ)=TIT(IJ) 
j3  WRITE (1 ,603)SUB 

K3 

A4 

B4 

C4 

D4  SEE  D3 

E4 

F4 

G4 

H4 

J4 

K- 

A5 


C5 

C5 

E5 

F5 

65 

J5  * 

K5 
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A1 

B'i  (R.EQ.l .AND. IR.NE.7) 

Cl  WRITE(1 ,702) 

D1  READ (1 ,703, ERR=701)R0UT 
E1  WR3TE(1 ,703)R0UT 

FI 

G1 

HI 

J1 

K1 

♦ 

A2 

B2  SEE  B1 

C2  (R.EQ.1  .AND.  IR.NE.8) 

02  WRITE ( 1 ,802) 

E2  (R.EQ.O), 

F2  READ(1,803,ERR=801)IDD 


G2 

H2 

J2 

K2 

A3 

B3 


C3  SEE  C2 

03  (R.EQ.l .AND. IR.NE. 9) 
>3  REWIND  10 
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Figure  . 5. 4. 1-6 
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AT 

BT  (CON(T).NE.'  . ') 

CT  WRITE ( 1 ,910) 

D1  READ(1 ,2300,ERR=909)I0PT 
El  (30PT.EQ. 1 YE ' );  (IOPT.NE. 'NO' ) 

FI  D01 0601=1 ,5;  CONT(I)=CON(I) 

GT 

HT 

J1 

KT 

A2  • 

B2  (R.EQ.l.  AND.TR.  NE.  10) 

C2  WRITE (1 ,952) 

02  READ (1, 953, ERR=951)C0NT 

E2  WRITE ( 1 ,953)  CONT 

F2 

G2 

H2 

J2 

K2 

A3 

53  SEE  B2 

C3  (R.EQ.l. AND.IR.NE.il) 

D3  WRITE (1 ,1102)  • 

£3  READ (1,1103, ERR= 1 1 01 ) ADD 
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F3  (ADD ( 1 ) - GT. 12);  (ADD(2).6T.31) 

G3 

H3 

J3 

K3 

A4 

B4 

C4  SEE  C3 

D4 

E4 

F4  WRITE (1 ,1103)ADD 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

« 

F5 

G5 

H5 

J5 

K5 
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r-  A? 


a:- 


i 


i 


! 


— r5 — 

j CLEAR 
DATA 

| FIELD  T 

WITH  BLANKS 


STORE 

BLANKS 

FOR  REMAINING 
ARRAY 


* — J2  — t*  — * ~~  * 
WRITE 
/ENTER 
REF.  DOC. 
NUMBER 


r-  A4 


r A5 


I 

t 

i • 


J 


r-  B5  — • 4-  - 
. / READ 
! / REF. DOC 
7 ENTRY 


it 

! 


■-D4-  


N 


- r*  - -I 


I / WRITE  /' 
i /REF. DOC.  /_ 

/ON  / . 

j/  TERMINAL  / 


-D5  - 


(36^ 


r ha  - 4 


r~ READ 
/ENGINEER 


* / ENTRIES  * /? 

;/ 

/ i 

1 i 

WRITE 
/ENTRY 
"/ON 

/ TERMINAL 


, 


t 


i 


] .* 
4 


I 
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A1 

B1  CR.EQ.-liAND.IR.NE.12) 

Cl  WRITE (1,1 204) 

D1  L00P1=0;  D01 2101 A= 1 ,6;  D01211 IC=1 ,5;  TWX(IA,IC)='  ' 
El  READ(1 ,1 220, ERR=1 202) LOOP! 

FI  (L00P1.EQ.0) 

G1  (L00P1.GT.6) 

HI 

J1 

K1 

A2 

B2  SEE  B1 

C2  (R.EQ.l .AND. IR.NE.13) 

D2  WRITE (1 ,1302) 

E2  READ (1,1 303, ERR=1 301 )FSC 
F2  WRITE (1 , 1 303 ) FSC 

G2  DOT  26011=1  ,L00P1 
,42  Performed  by  G2 
■ j2  WRITE  (1,1262) 

K2 

* 

HO 

.53  • 

C3  SEE  C2 

D3  (R.EQ.l .AND.IR. ME.  14) 

£3  WRITE(1 ,1401) 
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F3  LOOP! =0 ; D01408ID=1 ,3;  NRE(1,IB)= 

G3  READ(1 ,1402,ERR=1403)  L00P1 

H3 

J3 

K3 

A4 

B4 

C4 

D4  SEE  D3 

E4 

F4 

G4  (L00P1.EQ.0) 

H4  (L00P1.GT.3) 

04 

K4 

A5 

B5  READ ( 1 ,1265)  (TWX( II ,J) ,J=1 ,5) 

C5  WRITE (1 ,1265)  (TWX(II ,0) ,0=1 ,5) 

D5 

E5 


G5  WRITE(1 ,1404) 

H5  READ ( 1 ,1405)  (NRE(1 ,0) ,0=1 ,3) 

J5  WRITE ( 1 ,1405)  (NRE(1 ,0) ,0=1 ,3) 


K5 
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o. 


SET 

LEN 

TO  10 

| CHARACTERS 



- 

— 

' 1 


-K4-  + ; 
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A1 

B1  (R.EQ.l .AND. IR.NE.15) 

Cl  WRITE (1,1 502) 

D1  D01510IK=1 ,30;  D01511 IL=1 ,21 ; DDT(IK,IL)=' 
El  READ (1  ,1 503, ERR=1 501  )ILP  ' 

FI  (ILP.EQ.O) 

G1  (l'LP.EQ.30) 

HI 

J1 


K1 

• 

A2 

B2 

SEE  B1 

C2 

R=1 

02 

IR=0 

E2 

F2 

G2 

DO!  50410=1  , HP 

H2 

Performed  by  G2 

J2 

LEN=1 0 

K2 

A3 

S3 

C3 

03 

E3 

Figure  5. 4. 1-6 
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F3 


•G3  . • 

. H3  , • . 

J3 

K3 

A4 
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Cl  KNT  = 0 
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A5 

B5 

C5 

D5 


E5 


F5 

G5 

H5  WRITE  (7,130) 

J5 

K5 


Figure  5.4.1-27 
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Al 

B1  (ITEM.EQ.il) 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

♦ 

A2 

B2  WRITE  (7,500)' 

C2  (ITEM.EQ.il .OR. ITEM. EQ. 50) 

D2  WRITE  (7,600) 

E2  WRITE  (7,700) 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 

Figure  5.4.1-27  Page  (5  of  5) 
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A1 


31  SlNSERT  COMMON;  INTEGER*2 

Cl  WRITE  (7  >10) KNT , PTIT , DLN , FSC , I DD , COUNT 
Di  (ITEM.EQ.il .OR. ITEM. EQ. 50) 

E1  (TWX(1 ,1 ).NE. ' ' ') 

F1  WRITE  (7,172) 

G1 

HI 


J1 

K1 

A2 


32 

C2 

02 

E2  WRITE  (7,180)  ( (TWX(I , J) ,J=1 ,5), I = 1,6) 


ru : 

TO 

O W 


\0 


i 


10 


z'.cure  5.4.1-28 
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UPDATE 


3 


-B1  — - 



PERFORM  “ 
DATA  l 
HANDLING  f 
HOUSEKEEPING 

— Cl  - - 

SET  ACTION 
& REVISE 
FILES  TO 
TOD 


-E’i  - -f 


^1 


INITIALIZE 
FINISHED  -J 

FLAG  * 


ri  - 

t 

L 


|-D2-- 

I 

1 

T 


] DO  FOR 
J ALL  REFER. 
1 DOCUMENTS 

< 


-F2-  -j 


i 

POSITION  ; 

J V 

ACTION  ;■ 

FILE  : 

FOR  INPUT  j 

: r READ  I 

• / ACTION  I 

‘ * — ' FILE  4 


r B3- ± 


SET  ii 

J FINISHED  i 

i FLAG 



1 

1 

0 

CM 

1 

Vi 

: 1 

j—  F3  - 


C 


RETURN 


w 

J' 


c 5 — +*  — — 5 — i 


N 1 / TO  REVISE 

/ ./  FILE 

i 

!/ 

1 

— K3-  - 

— 

j © 


r B4-- , 


■ C4  — 


: / ENTER  * 7; 

> : / NEW 

; i 

ly  DUE 

!/  DATE 



? 

r-  04-  ^ 

, 

SRCHSS 
CLOSE 
Til  REVISE 
%ILE 


t 


_ . EXT 

■05  — +— 


READ  /■ 

ACTION  / 1 

DUE  /I 

y DATE  / i 

* '_J 


ill  SRCHSS 
jlDELETE 
alACTION 
i'DUE  FILE 


SRCHSS 
JIOPEN  NEW 
jIACTION 
ID’JE  FILE 


— — - 

1 

_ - - 

EXT 
1 

; SRCHSS  ■> 

IOPEN  :: 

Irevise  r 

|FILE  l, 

— H5  — - 

J SET  ACTION  ;! 

H REVISE  ! 

1 FILES  TO  ? 

5 TOP  f 

_ jC,  . 

CLEAR 

FINISHED 

FLAG 


— K d 

t 

I 

4 


I 
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Al 

B1  $ INSERT  COMMON;  $ INSERT  SYSCOM>  KEYS . F ; INTEGERS;  *2 

Cl  REWIND  9;  REWIND  8 

D1  FINISH  = 0 

El  DO  600  J = 1,6 

FI  Performed  by  El 

G1  (TWX  (J,l ).EQ. ' ') 

HI 

J1 

K1 

A2 

B2  DO  105K  = 1*5;  (TWX ( J , K) . NE. DL( K) -) 

C2 

D2 

E2 

F2  READ  (9,END=700)DA,DL,DPT,D,KT,DDD,DF,DE 

62  READ  (9,END=300)DA,DL,DPT,D,KT,DDD,DF,DE 

H2  Performed  by  G2 
J2  (FINISH. EQ. 1 ) 

K2 

A3 

B3  FINISH  = 1 

C3  DO  1 50L  = 1,21;  (SUB(L) .EO. * DELA ' ) 

D3  DO  1 55L  = 1,21;  (SUB(L).EQ. ' APPR ' .OR.SUB(L) . EQ. * D I S A ' ) 

r- 

LO 


Figure  5.4.1-29 
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F3 

G3 

H3 

J3.  WRITE  (8)DA,DL,DPT,D,  KT,DDD,DF,DE 

K3 

A4 

B4 

C4  WRITE  (1 ,165)DDD 
D4  READ  (1,170, ERR  = 160)DDD 

E4  (DDD(1 ).LE.0.0R.DDD(1 ).GE.13);  (DDD(2) .LE.0.0R.DDD(2) .GE.32) 

F4 

G4 

H4 

J4 

K4 

A5 

B5  SRCH$$(K$CL0S, 'ACTD' ,6, 0,0,0) 

C5  SRCH$$(K$CL0S, 'REVS', 6, 0,0,0) 

I 

D5  SRCH$$(K$DELE, 'ACTD' ,6, 0,0,0) 
c5  CNAM$$( 'REVS' ,6, 'ACTD' ,6,IC) 

F5  SRCH$$ ( K$RDWR+K$NDAM , ' ACTD ' ,6,5,1,IC) 

G5  SRCH$$(K$RDWR+K$NDAM, 'REVS' ,6,4,1 ,IC) 

H5  REWIND  9;  REWIND  8 
j5  FINISH  = 0 

KS 

Figure  5.4.1-29  Page  (3  of  3) 
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Al. 

B1  $ INSERT  COMMON;  $INSERT  SYSCOM>KEYS.F;  INTEGER*2;*4 

Cl  CLEAR 

D1  BREAKS ( .TRUE. ) 

E1  TIMDAT(A,15) 

F1  ;A(13).EQ.,JW,.0R.A(13).EQ.'HNI.0R.A(13).EQ.,RJ,.0R.A(13).EQ.,DK') 

G1  WRITE ( 1 ,4) 

HI 

J1 

Kl 

A2 

B2 

C2 

D2 

E2 

F2  BREAKS (.FALSE.)  . 

G2  WRITE ( 1 ,1 ) ; WRITE(1,505) 

H2  READ(1 ,510,ERR=500)DIRR 

J2  READ(6,END=1010)TIT ,PTIT ,DIR,DT ,SYS,WAN,VEH,REV,RDAT 

K2 

A3 

33  see  J2 

C3  DO  5301=1,4;  (DIR(I) .NE.DIRR(I) ) 

03  WRITE(10)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 

E3 


Figure  5. 4. 2-1 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 


H4 


04' 

K4 

A5 

B5 

C5 

05 


WRITE ( 1 ,540) 

SHOWDR 

WRITE ( 1 ,550) 

READ(1 ,560 ,ERR=545)I0PT 
( IOPT.EQ . ' NO' ) ; (IOPT.NE. 'YE' ) 


F5 

G5  R=1 

H5  INPSDR 

J5  WRITE  (10)TIT, PUT,  DIR,DT  ,SYS  ,WAN,VEH  ,REV  ,RDAT 

K5 


Figure 


5. 4. 2-1 
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*>^inisheeK!  Y 


RETURN 


■ J3-  + * 


- J4  


Figure  5.4. 2-1 
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A1 

B1  READ(6,END=600)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 
Cl  see  Bl 

D1  WRITE(10)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV ,RDAT 

El 

FI 

G1 

HI 

J1 

Kl 

A2 

B2 

C2  SRCH$$ ( K$CLOS , 1 TEMP 1 ,6, 0,0,0) ;SRCH$$(K$CL0S , ' DIR' ,6, 0,0,0) 

02  SRCH$$(K$DELE,'DIR' ,6, 0,0,0) 

E2  CNAM$$ ( 'TEMP ' ,6, ' DIR  * ,6,IC) 

F2  SRCH$$ ( K$RDWR+K$NDAM , 1 DIR ' ,6 ,2 , IT , IC ) ; SRCH$$ ( K$RDWR+K$NDAM , 

'TEMP' ,6,6,IT,IC) 

G2 

H2 

J2 

K2 

A3 

B3  R=0 

C3  INPSDR 

D3  WRITE(6)TIT,PTIT,DIRR,DT,SYS,HAN ,VEH,REV ,RDAT 

E3  SRCH$$(K$CL0S, 'TEMP' ,6, 0,0,0) ;SRCH$$ ( K$DELE , 'TEMP ' ,6, 0,0,0) ;SRCH$$ 

( K$RDWR+K$NDAM , ' TEMP ' ,6 ,6 , IT , IC ) 

Figure  5. 4. 2-1  Page  (5  of  6) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 


F5 


G5 

H5 

J5 

K5 


WRITE(1 ,1001 ) ; READ (1,1 002) IANS 
REWIND  6 

( IANS . EQ . ' N ' ) ; (IANS.NE. ' Y ' ) 


Figure  5. 4. 2-1 
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i ‘ t A 


PERFORM 
DATA  HANDLIN' 
HOUSEKEEPING 


n 

p B2-  -r » 

I-B3-  4 ; 

_ 84__  itS U 

1 

1 j 

SYSDR 

1 I 

' 1 Y 

PERFORM 

3 1 

+ f 

./system  V-! 

SEARCH  ON 

-i 

l 

i ; 

> t 

i 

SYSTEM 

-CL-Y-r- 
/WRITE 
/ SEARCH 
7 MODE  I 


’ C3—  f 


. 5.4.2-13 


7* 

1 ! 

! / 

\ : . 

CONN 

/j 

! 1 

+ 

I 1 

t i 

1 i i 

/ :0NTRAC>s/! 

PERFORM 

/j 

nc 

L_S 

1 

SEARCH  ON 
SYSTEM 

-PJJT  tT. 3 

/ R EAD  71 

/ MODE  /l 

7 SELECTION  / { 


-02-  — 


r03  — I 

! ^^ICL^X 
T\  NUMBER  / 


5.4.2-14 
- 04-  H 

Yehn 

PERFORM 

VEHICLE  

NO.  SEARCH 


.05 


.-2_  _5.4_._2-7 


PERFORM 
PRINT  ALL 


-E3-4 


j 

i /write  7; 

! / HARD  COPY/1 
77  SELECTION  / T 


* E5  — 4 ; 


u A 
NUMBER* 


”n 


5 ;4 .2-8 
-F2-  - 

TITDR  [: 

PERFORM 
TITLE  : 
SEARCH 


5. 4. 2-9 
-G2-  * 

DIRN 
PERFORM 
DIR/REPORT 
NO.  SEARCH 


5.4.2-10 


DATDR 
PERFORM 
SEARCH 
OF  DATE 


WANUM  f! 
PERFORM  _/ 

SEARCH  ON  ^ 
WA  NO. /ID  C0:£ 


■]  CLEAR  l 

i CLEAR  l 

n TERMINAL 
! SCREEN  ' 


~N5-^— “I 
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r*  K5  — j 

& )r 

! J 
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A1 


B1  $ I NS ERT  SYSCOM> KEY S . F ; SRCH$$(K$RDWR+K$NSAM, 'OUT' ,6, 3,0,0) 
Cl  WRITE(l.l);  REWIND  6. 

D1  READ( 1,3) IDES 

El  ( IDES (1 ) . EQ . 'AL' ) 

Fi  ( IDES ( 1 ).EQ.'TI ' ) 

G1  ( IDES ( 1 ) .EQ. 'DI ' ) 

Hi  ( IDES ( 1 ) . EQ . 'DA' ) 

jl  (IDES(l).EQ. ' WA* ) 

K1 

A2 

B2 

C2 

02  ' ' ■ " * 

E2  ALDR 

F2  TITDR 

G2  DIRN- 

H2  DATDR 

j2  WANUM 

K2 

A3 

B3  (IDES(l).EQ.'SY') 

C3  ( IDES ( 1 ).EQ. ' CO  * ) 

D3  (IDES(l).EQ.'VE') 

E3  (IDES(l).EQ.'QU') 


Figure.  5. 4. 2-2 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 


CLEAR 


SYSDR 

CONN 

VEHN 

WRITE (1,1 1 ) 

SRCH$$ ( K$CLOS , 1 OUT 1 ,6, 0,0,0) 

READ ( 1 ,3) IDES 

(IDES(l).EQ.'YE');  (IDES(l).EQ. 'NO' ) 
SRCH$$(K$DELE, 'OUT' ,6, 0,0,0) 


SRCH$$ ( K$CLOS , ' DIR ' ,6, 0,0,0);  SRCH$$(K$CLOS, 'REV' ,6, 0,0,0) ; 
SRCH$$(K$CLOS,' TEMP' ,6, 0,0,0) 

COMI$$( ’ SOUT' ,6,2,IC) 


Figure  5. 4. 2-2 
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r a 


Figure  5.4. 2-3 
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A1 


B1  $INSERT  COMMON:- INTEGER*2, *4 

Cl  TIMDAT(A,15) 

01  (A( 1 3) . EQ . * JW* . OR . A( 1 3) . EQ . * NH ’ . OR .A (1 3) . EQ . * RJ  * .OR . A(1 3) . EQ . ' DK' ) 

El  WRITE{1 ,4) ( 'SORRY,  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  MODE.') 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2  FINISH=0 

E2  WRITE (1,1) 

F2  READ ( 1 ,2,ERR=5)IDIR 

G2  REWIND  6 

H2  READ(6,END=200)TIT,PTIT,DIR,DT ,SYS ,WAN ,VEH ,REV ,RDAT 

J2  see  H2 

K2 
A3 

B3  (FINISH. EQ.l) 

C3  DO  110  1=1,4;  (IDIR(I).NE.DIR(I)) 

D3 

E3 

Figure  5. 4. 2-3  Page  (2  of  5) 
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F3 


G3 

H3 

J3 

K3 

A4 

64 

C4 

D4 

E4 

F4 

G4 


H4 


J4 


K4 


A5 

B5 

C5 


D5 


E5 

F5 

G5 


H5 


.m 


K5 


SRCH$$ ( K$CLOS , * DIR ' ,6, 0,0,0);  SRCH$$(K$DELE, 'DIR' ,6, 0,0,0) 


SHOWDR 

WRITE ( 1 ,1700) 

READ ( 1 ,50)I0PT 

(IOPT.EQ. 'NO' ) ; (IOPT.NE. 'YE' ) 


CNAM$$( 1 REVS' ,6,'DIR' ,6,IC) 


WRITE ( 1 ,2000) 

READ ( 1 ,50)I0PT 

SRCHSS ( K$RDWR+K$NDAM , 'DIR'  ,6,2,IT,IC);  SRCH$$ ( KSRDWR+KSNDAM , 'REV' 

6, 4, IT , I C ) 


Figure  5. 4. 2-3 
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A1 
B1 
Cl 
D1 
El 
FI . 
61 
HI 
J1 


K1 


A2 

B2 

C2 

D2 

E2 

F2 

G2 


H2 


J2 


K2 


A3 


33 


C3 

03 

n 

w 


(I0PT.EQ. * RE ' ) 
(IOPT.NE. 1 DE' ) 


R=1 

FINISH3! 


INPSDR 

FINISH3! 

WRITE (8)TIT, PTIT, DIR, DT, SYS, WAN, VEH, REV  ,RDAT 


Figure  5. 4. 2-3 
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A1  * 

B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


$ INSERT  COMMON;  $ INSERT  SYSCOM>KEYS.F;  INTEGER*4 
IDUSER(IAI) 

(IAI.EQ.'SY’) 


WRITE (1,1.)  ('YOU  ARE  NOT  VALIDATED  TO  USE  THIS  ROUTINE') 

READ(1 ,2,ERR=10)IKNT 

(IKNT.EQ.O) 

SRCH$$ ( K$RDWR+K$NDAM , ' INACT ' ,6 ,5 , 1 , IC ) 
READ(9,END=75)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 
DO  9999  ILOOP=l ,IKNT 


WRITE  (.1 ,80) 

READ(1 ,81 ,ERR=82)IDR 

READ(6,END=200)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 


Figure  5. 4. 2-4 
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F3 


G3 

H3 

J3 

K3 

A4 

84 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 


ENDFILE  9 

SRCH$$(K$CLOS, 1 INACT' ,6, 0,0,0) 


DO  150  1=1 ,4;  (IDR(I).NE.DIR(I)) 

WRITE (10 )TIT,PTIT, DIR, DT, SYS ,WAN,VEH,REV,RDAT 


WRITE(9)TIT,PTIT,DIR,DT ,SYS ,WAN,VEH ,REV ,RDAT 
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A1 


B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


SRCH$$(K$CLOS, 'DIR', 6,0,0, 0);  SRCH$$(K$DELE, 'DIR' ,6, 0,0,0) 
SRCH$$(K$CL0S, 'TEMP' ,6 ,0,0,0) 

CNAM$$ ( ' TEMP ' ,6, 'DIR' ,6,IC) 

SRCH$$(K$RDWR+K$NDAM, 'DIR' ,6,2,IT,IC);  SRCH$$ ( K$RDWR+K$NDAM , ' TEMP ' , 
6,6,IT,IC) 


Figure  5. 4. 2-4 
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Figure  5.4. 2-5 
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A1 


B1 
Cl 
D1 
El 
FI 
61 
HI 
' J1 
K1 
A2 
B2 
C2 
D2 
E2 
F2 
G2 
H2 
J2 
K2 
A3 
33 
C3 
03 
E3 


$ INSERT  COMMON 
CLEAR 

WRITE(1 ,10)TIT 
WRITE(1 ,20)DIR,DT,SYS 
see  El 

WRITE(1 ,30)WAN,( (VEH(I ,J) ,J=1 ,2) ,1=1 ,2) 
WRITE (1,40)REV,RDAT 


Figure  5. 4. 2-5 
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AT 


31 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

02 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

33 

C3 

D3 

E3 


$ INSERT  COMMON;  $ INSERT  SYSCOM>KEYS.F;  INTEGER*2 
(R.EQ.O) 

WRITE(1 ,1 ) 

READ(1 ,10,ERR=2)IKNT 
(IKNT.LT.O);  (IKNT.GT.8) 


(R.EQ.l.AND.IR.NE.l) 


WRITE ( 1 ,3) 

READ(1 ,10,ERR=5)IR 


see  C2 


Figure  5. 4. 2-6 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4. 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

05 


E5 


G5 

H5 

J5 

i<5 


LEN=10 

TINPUT(TIT,LEN) 

WRITE ( 1 ,102)TIT 
(R.EQ.l .AND. IR.NE.2) 
see  F4 


WRITE ( 1 ,202) 

READ(1 ,203,ERR=201 )DIR 
WRITE ( 1 ,203 ) DIR 


Figure  5. 4. 2-6 
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1 

r-  K 2 — — 

j 

l 

■+•  -r 

1 

, I 

i { 

j-K4-  •+• 1 

1 ! 

1 1 

+ + 

r-  K5 ; 

! ; 

—1 

Figure  5.4. 2-6 
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A1 


B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

33 

C3 

D3 


(R.EQ'.l  .AND.IR.NE.3) 


see  B1 

(R.EQ.l .AND. IR.NE.4) 


READ(1  ,403,ERR=401 )DT 
see  C2 

(R.EQ.l .AND.IR.NE.5) 


Figure  5.4. 2-6 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

05 

E5 


F5 

G5 

H5 

J5 

K5 


WRITE(1 ,403)01 

READ( 1 ,503,ERR=501 )SYS 

see  E3  (page  5 of  9) 


WRITE(1 ,503)  SYS 

READ(1 ,603,ERR=601 )WAN 
WRITE ( 1 ,603)WAN 
GETCON 

WRITE (1 ,650)C0N 


Figure 
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AT 


B1 

Cl 

D1 

El 

FI 

61 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 


A3 


B3 

C3 

D3 

E3 


(R.EQ.l .AND.IR.NE.6) 


see  B1 

(R.EQ.l  .AND.  IR-.NE.7) 


READ(1  ,903,ERR=901 ) ((VEH(I  ,J)  ,J=1 ,2)  ,1=1 ,2) 
see  C2 

(R.EQ.l .AND.IR.NE.8) 


Figure  5. 4. 2-6 
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F3 

G3 

H3 


J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 


H4 


J4 
K4 
' A5 
85 
C5 
D5 
E5 
F5 
G5 
H5 
J5 


K5 


WRITE ( 1,903) ( ( VEH ( I ,J) ,J=1 ,2) ,1=1 ,2) 
READ (1,2202) REV 


see  E3  (page  8 of  9) 


WRITE(1 ,2202)REV 

READ (1,2 303 )RDAT 
WRITE(1 ,2303)RDAT 
SHOWDR 
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Figure  5. 4. 2-7 


A1 


B1  SlNSERT  COMMON;  $ INSERT  SYSCOM>KEYS.F;  INTEGER*2;  *4 

Cl  KNT=0 

D1  BREAKS (.TRUE.) 

El  WRITE(1  ,1 ) 

FI  WRITE ( 1 ,3) 

G1  READ(1 ,4,ERR=3)I0PT 

HI  (IOPT.LT.l .0R.I0PT.GT.2) 

J1 

K1 

A2 

B2  KNT=KNT+1 

C2  (I0PT.EQ.2) 

D2  . . (REV.EQ. ' ) 

E2  WRITE(7,55)KNT,DIR 

F2 

G2 

H2  READ(6,END=100)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV ,RDAT 

J2  see  H2 

K2 

A3 

B3 

C3  FMAIN. 

D3  WRITE(7,35)KNT,DIR,REV 

E3  (KNT/50.EQ .KNT/50. ) 


Figure 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 


H4 


J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 


C* 


WRITE (1, 70 )KNT 


WRITE ( 1 ,200)KNT 
SRCHS$(K$CL0S , 'OUT' ,6, 0,0,0) 
SRCH$$ ( K$CLOS , 1 DIR ' ,6, 0,0,0) 
SRCHS$(K$CLOS REVS’ ,6, 0,0,0) 
SRCH$$(K$CLOS , 'TEMP' ,6, 0,0,0) 
COMI $$( ' SOUT  * ,6,12,IC) 


Figure  5. 4. 2-7 
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WRITE  j- 
ENTER  / 
DESIRED  ] 
WORD  / i 


SET  TEMP 
FILES  TO 
TDP 


t © 


P©r 


Figure  5. 4. 2-8 
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A1 

B1  $ INSERT  COMMON;  INTEGER  *2;  *4 

$ 

Cl  T1=0 

D1  CLEAR 

El  WRITE ( 1 ,2) 

FI  READ  (1,8, ERR=L001 ) ICON 

G1  (ICON.LT.l ) ; (IC0N.GT.4) 

HI 

J1 

K1 

A2 

B2  LEN=10 

C2  TI NPUT (IT  ,LEN) 

D2  ( IT  (1 ) . EQ . 'QUIT' ) 

£2  SRCH$$(K$RDWR+K$NDAM,T1 ' 6,7,ITY,IC)  ;SRCH$S(K$RDWR+KS.,,’DAM,  *T2 ' ,6, 

8, ITY,IC) 

F2 

G2  DO  1000  L00P=1 .ICON 

H2  performed  by  G2 

J2  WRITE  (1,1) 

K2 

A3 

B3 

C3 

D3 

E3 

Figure  5. 4. 2-8  Page  (2  of  9) 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 


K5 


IN=6 

IN=12 

in=ii 

10=12 

D0C=0 

REWIND  IN;  REWIND  10 


10=11 

10=11 


Figure  5. 4. 2-8 
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Figure  5. 4. 2-8 
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A1 


Bl  READ(IN,END=100)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 

Cl  see  Bl 

D1  BLNK=' 

El  DO  3 1=1 ,21 

FI  performed  by  El 

G1  (TIT(I).EQ.BLNK);  (TIT(I).NE.IT(l));  (TIT(I+1).EQ. 

BLNK) ; (IT(2) .EQ.BLNK) ; (TIT(I+1).EQ.IT(2)) 

HI 

J1 

Kl 

A2 

B2 

C2  WRITE (1 ,1030)D0C,IT 

D2  (DOC.EQ.O) 

E2 

F2 

G2  DOC=DOC  + 1 

H2  WRITE ( 10 )TIT,PTIT,DIR,DT, SYS ,WAN,VEH,REV,RDAT 

J2  WRITE(1 ,10)TIT 

K2 

A3 

33 

C3 

D3  ' ENDFILE  10 

E3  SRCH$$(K$CL0S,'T1' ,6, 0,0,0);  SRCH$$(K$CLOS, ’T2' ,6,0, 0,0) 

Figure  5. 4. 2-8  Pace 


- 259  - 


(5  of  9) 


F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 


05 


E5 

F5 

G5 

H5 

J5 

;<5 


(IO.EQ.ll) 


SRCH$$(K$DELE, 'T2' ,6, 0,0,0) 
(I0.EQ.12) 


SRCH$$(K$DELE, 1 T2 ' ,6, 0,0,0) 
T1=T1+1 


Figure 
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Dage  (6  of  9) 


A1 


-J31 


Cl 

01 

El 

FI 

G1 

HI 

J1 

Kl 

A2 

B2 

C2 

D2 


F2 

G2 

H2 

J2 

K2 

A3 

33 

C3 


SRCH$$ ( K$RDWR+K$NDAM , ' T1 ' ,6 , 7 , ITY 
SRCH$$ ( K$RDWR+K$NDAM , ' T2 ' ,6 ,8 , ITY , IC ) 
(D0C.LT.1 ) 


READ(I0,END=1020)TIT,PTIT,DIR,DT,SYS,WAN,VEH ,REV,RDAT 

see  D2 

FMAIN 


(DOC.NE.O) 
WRITE( 1,2000) 


03 

E3  SRCH$5(K$CL0S,'T1'  ,6, 0,0,0) 

Figure  5. 4. 2-8  Page 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 


SRCH$$(K$CL0S,'T2' ,6, 0,0,0) 
SRCH$$(K$DELE, 'T1 1 ,6, 0,0,0) 
SRCH$$ ( K$DELE , * T2 ' ,6,0, 0,0) 


READ ( 1 ,2001 )I0PT 
(I0PT.EQ. * YE ' ) 

(IOPT.NE. ' NO  * ) 


Figure  5.4. 2-8 
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Figure  5. 4. 2-9 
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A1 

B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 


K2 


A3 

B3 

C3 

03 

E3 


$ INSERT  COMMON;  INTEGER  *4 
KNT=0 

WRITE  (1,1) 

READ  (1 ,2,ERR=3)IDIR 
WRITE  (1 ,2)IDIR 

READ(6,END=200)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 
see  G1 

DO  1000  1=1,4;  (IDIR(I).NE.DIR(I)) 


FMAIN 


Figure  5. 4. 2-9 
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A1 

B1  $INSERT  COMMON \ INTEGER  *2 

Cl  KNT=0 

D1  WRITE ( 1 ,21 ) 

El  READ(1 ,22,ERR=20)D 

FI  READ(6,END=200)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 

Gi  see  FI 

HI  (REV.EQ. 1 •) 

J1 

K1 

A2 

B2  (D(2).EQ.O) 

C2  (D(2).NE.DT(2)) 

. D2 
E2 
F2 

G2  WRITE ( 1 ,250)KNT,D 

H2  (D(l).EQ.O) 

02  (D(l).NE.DT(l)) 

K2 

A3 

B3 

C3  (D(3).EQ.O) 

D3  (D(3).NE.DT(3)) 

E3 
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Figure  5.4.2-10 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4  FMAIN 

E4  KNT=KNT+1 

F4 

G4 

H4 

J4 

K4 

A5 

85 

C5 

05 

E5 

F5 

G5 

H5 

J5 


Figure  5.4.2-10 
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A1 

B1 

(D(l).EQ.O) 

Cl 

(D(l).NE.RDAT(l)) 

D1 

El 

FI 

61 

HI 

J1 

K1 

A2 

B2 

C2 

( D (2 ) . EQ . 0 ) 

D2 

(0(2) ,NE.RDAT(2)) 

E2 

F2 

G2 

nil 

J2 

K2 

* ** 

B2 

C3 

D3 

(D(3) .EQ.O) 

A 

(D(3).NE.RDAT(3)) 

Figure  5.4.2-10 
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r 

i 


— -r 


PERFORM 

DATA 

HANDLING 

HOUSEKEEPING 


5.4.2-15 
~B3—  -» r 

IFMAIN  [| 

FORMAT  FOR 
PRINTER  & 

TERMINAL 


-Cl  - - 


INITIALIZE 


COUNTER 


~c3~  f" :zj 
INCREMENT  I 
FOUND 
COUNTER 


* /WRITE 
1 / ENTER 
: /VIA  & ID 
«/  CODE 


A1 

B1  $INSERT  COMMON;  INTEGER*2 

Cl  KNT=0 

D1  WRITE  (1,1) 

El  READ(1 ,2,ERR=3)DWA 

FI  READ(6,END=200)TIT ,PTIT ,DIR,DT,SYS>WAN,VEH,REV,RDAT 

61  see  FI 

HI  (DWA(4).NE. ' ') 

J1  ( DWA ( 3 ) . NE . 1 ') 

K1 

A2 

B2  DO  30  1=1,2;  (DWA(I) .NE.WAN(I)) 

C2 

D2 

E2 

F2 

G2  WRITE ( 1 ,250)KNT,DWA 

H2  DO  10  1=1,4;  (DWA(I).NE.WAN(I)) 

J2  DO  50  1=1,3;  (DWA(I) .NE.WAN(I) ) 

K2 

A3 

B3  FMAIN 

C3  KNT=KNT+1. 

D3 

E3 
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Figure  5.4.2-11 


A1 

B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

02 

E2 

F2 

G2 

H2 

J2 

K2 


SINSERT  COMMON;  INTEGERS 

KNT=0 

WRITE ( 1 ,1 ) 

READ ( 1 ,2,ERR=3)DS 

READ(6,END=200)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 
see  FI 

DO  150  1=1,3;  (DS.EQ.SYS(I)) 


WRITE ( 1 ,250)KNT,DS 

FMAIN 

KNT=KNT+1 


A3 


B3 

C3 

D3 

E3 


Figure  5.4.2-12 
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Figure  5.4.2-13 


A1 


B1  $ INSERT  COMMON;  $ INSERT  SYSCOM  >KEYS.F;  INTEGERS 

Cl  KNT=0 

D1  WRITE ( 1 ,3) 

El  READ ( 1 ,2,ERR=1 )DC 

FI  SRCH$$(K$RDWR+K$NDAM, 'CTAB' ,6,14,IT,IC) 

G1  READ(18,40,END=200)WA,CON 

HI  see  G1 

J1  DO  45  1=1,5 

K1  (CON(I).NE.DC(I)) 

A2  - 

B2  READ(6,END=90)TIT,PTIT,DIR,DT,SYS,WAN,VEH,REV,RDAT 

C2  see  B2 

D2  (WA(1 ) . EQ. 1 38' ,AND.WA(2) .EQ. 1 04' .OR.WA(2) .EQ. 1 09 1 ) 

E2  • (WAN(1).NE.WA(2));  (WAN(2).NE.WA(2)) 

F2 

G2 

H2  WRITE ( 1 ,250)KNT,DC 

J2 

K2 

A3 

33 

C3  REWIND  6. 

D3  DO  665  1=1,4;  (WAN(I).NE.WA(I)) 

E3 

Figure  5.4.2-13  Page  (2  of  3) 
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F3 

63 

H3  SRCH$$ ( K$CLOS , ' CTAB  * ,6, 0,0,0) 

J3 

K3 

A4 

B4 

C4 

D4  CMAIN 

E4  KNT=KNT+1 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

05 

E5 

C Z 

i u 

G5 

H5 

J5 

:<5 
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CLEAR 

CLEAR 

TERMINAL 


: VALID 
-VEHICLE 
' TO  DEFAULT 


1 /WRITE 
J ENTER 
7 VEHICLE 
1/  NUMBER 


READ 

VEHICLE 

ENTRY 


' /WRITE 
/ ENTER 
7 FIRST 
./  VALID  NO 

■ 1 


-Go  — - 


- 1 * * 

103 

'FIRST  I 

VALID  / 

ENTRY  / 
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A1 

B1  $INSERT  COMMON;  INTEGER*2 

Cl  VKNT=0 

D1  CLEAR 

El  WRITE ( 1 ,2) 

FI  READ(1 ,3,ERR=1 ) VEH1 

61  WRITE ( 1 ,100) 

' HI  READ(1 ,101 ,ERR=100) (VS (I ) ,1=1 ,2) 

J1  WRITE ( 1 ,102) 

K1 

A2 

B2  READ ( 1 ,101 ,ERR=998) (VS(I ) ,1=3,4) 

C2  (VEHl(l).LT.VS(l)) 

02 

E2  ' . 

F2  READ(6,END=202)TIT,PTIT,DIR,DT ,SYS,WAN,VEH,REV,RDAT 

G2  see  F2 

H2  (VEH(l.l).LT.VS(l));  (VEH(2,1 ) .GT.VS(3)) 

J2 

K2 

A3 

3 J 

C3  (VS(3).EQ.0) 

D3  VS(3)=999 

E3 

Figure  5.4.2-14  Page  (2  of  3) 
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F3 
G3 
H3 
J3 
K3 
A4 
B4 
C4 
D4 
E4 
F4 
G4 
n -f 
J4 
K4 
A5 
35 
C5 
D5 
E5 


WRITE ( 1 ,201 )VKNT,VEH 

(VEH(1 ,2).NE. 'S' .AND.VEH(1 ,1 ).EQ.VEH1  (1)) 
see  H3,  H4 


(VS ( 3 ) .LT.VEH1 (1 )) 


(VEH(1 ,2).EQ. 'S' .AND.VEH(1 ,1 ).LE.VEH1 (1 )) 


uc 


*1  z 
u 2 


VKNT=VKNT+1 

FMAIN 


.<5 


Figure  5.4.2-14 
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f \ 


FHAIN 


3 


- — 4---J 


i 

i 

L 


— 61 1 1 

PERFORM 

OATA 

HANDLING 

HOUSEKEEPING 


r-  62-  


— Cl—  -j y 

WRITE 

BLANK  LINE/  . 
ON  / i 

TERMINAL 


-Ci  - 4 


/WRITE 
TITLE  ON 
/OUTPUT  BUF i 
& TERMINAL/ 


WRITE  /• 
r DIR/REPORT 
/NO.  ON  BUF f/T 
& TERMINAL/ 


r 


02-  -+• 


; /WRITE  71 

1 /DIR/REPORT  /. 
T7  NO  & REV.  / - 
i /ON  BUF  TER./  ; 

-FJj 

' /WRITE  / 

J>/doc . date  af ; 
77  REV . DATE  / T 
'/ON  BUF  & TfyRM;. 

r 32“  ; 

'WRITE  p 
! SYSTEM  /, 
< ON  BUFFER  / * 
• TERMINAL 


1 


i 


r 34-  — 

i 

i 


p — t — 


i 

■*> 

i 


i 


I 


I 


i— 85—  -» * 


rC5- 


i 


rC5 

i 


- 4- : 


f WRITE 
/WA  NUMBER 
ON  BUF  & 
TERM 


(—  H4  - --  — 

i 


■-K5 


_ £.4.4-6 

GETCON  f 
' FIND  CONTRAC: 

J NUMBER  IN 
! CTAB 


i 

i 


— K2  - 


— K3- 


— K4 


i 

j 

4> 


I 

I 


! 
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A1 

B1  SINSERT  COMMON 

Cl  WRITE ( 1 ,998) ; WRITE(7,999) 

D1  WRITE ( 1 ,101 ) ; WRITE(7,101 ) ; WRITE(1 S102)TIT; 

WRITE(7,102)TIT 
El  (REV.NE. 1 ') 

FI  WRITE (1 ,150) DIR, REV;  WRITE(7,150)DIR,REV 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2  WRITE ( 1 ,202)DIR,REV;  WRITE(7 ,202)DIR,REV 

F2  WRITE(7,402)DT,RDAT ; WRITE(7 ,402)DT,RDAT 

G2  WRITE ( 1 ,502)SYS ; WRITE(7,502)SYS 

H2  WRITE ( 1 ,602)WAN;  WRITE(7,602)WAN 

J2  GETCON 

K2 

A3 

33  WRITE ( 1 ,702 ) CON ; WRITE(7 ,702)C0N 

WRITE (1 , 902 ) ( ( VEH ( I ,J)  ,J=1 ,2) ,1=1 ,2) ; WRITE(7,902) 

C3  ( (VEH(I ,J)  ,J=1 ,2) ,1=1 ,2) 

D3  RECYCL 

E3  PAUS 


Figure  5.4.2-15  Page  (2  of  2) 
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Figure  5.4.2-16 


283 


Page  (1  of  2) 


A1 

B1  $INSERT  COMMON 

Cl  WRITE ( 1 ,998) ; WRITE(7,999) 

D1  WRITE(1 ,101 );  WRITE(7,101 ) ; WRITE(1 ,102)TIT; 

WRITE(7,102)TIT 
El  (REV.NE. 1 ') 

FI  WRITE ( 1 ,150)DIR,REV;  WRITE(7,150)DIR,REV 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2  WRITE ( 1 ,202)DIR,REV;  WRITE(7,202)DIR,REV ‘ 

F2  WRITE(7,402)DT,RDAT ; WRITE(1 ,402)DT,RDAT 

G2  WRITE ( 1 ,502)SYS;  WRITE(7 ,602)WAN 

H2  WRITE ( 1 ,602)WAN;  WRITE(7,602)WAN 

J2  WRITE ( 1 ,702)C0N;  WRITE(7,702)C0N 

K2 

A3 

33  WRITE ( 1 ,902) ( (VEH(I ,J) ,J=1 ,2) ,1=1 ,2) ; 

WRITE ( 7 , 902 ) ( ( VEH ( I ,J) ,J=1 ,2) , 1=1 ,2) 

C3  RECYCL 

D3  PAUS 

E3 
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BREAKS 
INHIBIT 
BREAK  KEY 


* 

I 

1 / WRITE  / 

f 

t/  INPUT  h 

\ OPTIONS  / | 

POSITION 
DRAWING 
SUBFILE 
TO  TOP 


POSITIO 


SUBFILE 


A1 

B1  $ INSERT  COMMON;  INTEGER*2 
Cl  CLEAR 
D1  FIRST=0 
El  BREAK$ (.TRUE.) 

FI  TIMDAT (A» 15) 

G1  ( A( 1 3 ) . EQ. 1 JW1 ,0R.A(13).EQ. 'NH'  OR.A(13).EQ. 'RJ' .OR. A( 1 3) . EQ. * DK* ) 

HI  WRITE(M)  ('SORRY,  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  MODE.') 

J1 

K1 

A2 

B2  READ(12,END=2003)DRW,SHTN,REV,NE0,E0REF 
C2  WRITE(l.l) 

02  R=0 

E2  WRITE  (1,101) 

F2  READ (1,1 002) IANS 
G2  BREAKS (.FALSE.) 

H2  READ ( 6, END=2001 ) DRAW ,TIT, PTIT , DT ,SYS , VEH , SECT ,NSHT, FREV , FNEO , FEOREF 

J2  READ(18,END=  2002) EON, ETIT,EPTIT,EOREV,EDT,ERDT,EOVEH 
K2 
A3 

B3  INPSDW 

C3  WRITE(6)DRAW, TIT,PTIT,DT,SYS, VEH, SECT, NSHT, FREV, FNEO, FEOREF 
D3  WRITE (1,1 001) 

E3 

Figure  5. 4.3-1  Page  (2  of  3) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 


(IANS.EQ. * D* ) 
(IANS.NE. 1 E ' ) 


READ (1,1 002)  IANS 
(IANS.EQ. 'Y');  (IANS.NE. 'N' ) 

INPSE 

WRITE ( 1 8 ) EDN , ETIT, EPTIT, EDREV , EDT , ERDT , EOVEH 
READ ( 1 2 ,END=1 000) DRW, SHTN , REV , NEO , EOREF 


K4 


A5 

85 

C5 

D5 

E5  REWIND  6 

F5  REWIND  12 

G5  REWIND  18 

H5 

J5 

K5 


Figure  5. 4. 3-1 
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A1 


B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 


$ INSERT  COMMON;  $ INSERT  SYSCOM>  KEYS.F;  INTEGER*4;*2 
TIMDAT(A,15) 

(A(13).EQ. ' JW' .OR.A(13).EQ. 'NH* .OR.A(13). EQ . ’ RJ 1 . OR . A( 1 3) . EQ . 1 DK* ) 
WRITE (1,4)  (.'SORRY,  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  MODE.') 


Kl 

A2 

B2 

C2 

D2 

E2 

F2. 

G2 

H2 

J2 

K2 

A3 

83 

C3 

03 

E3 


SRCHS$(K$RDWR+KSNDAM, 'REVS' ,6,4,1 , IC) 
(IC.NE.O) 

WRITE ( 1 , 3001  ) 


WRITE(l.ll) 

READ(1 ,21 ,ERR=31  )IE0 
REWIND  18 
FINISH=0 


Figure  5.4. 3-2 


Page  (2  of  9) 


- 289  - 


F3  WRITE( 1,301) 

G3  READ(1 ,302) 

H3  (IANS.EQ.'E') 

J3  (IANS.NE. 'O' ) 

K3 

A4 

B4 

C4 

04  READ(18,END=201 )EON,ETIT,EPTIT,EOREV,EDT,ERDT,EOVEH 

E4  PERFORMED  BY  D4 
F4  (FINISH. EQ.l) 

G4  DO  111  1=1,2;  (IEO(I).NE.EON(I)) 

H4  WRITE(8)E0N,ETIT,EPTIT,E0REV,EDT,ERDT,E0VEH 

J4 

K4 

A5  .... 

B5  SRCH$$(K$CLOS, ' E0‘ ,6, 0,0,0) 

C5  SRCH$$(K$DELE, * EO  * ,6, 0,0,0) 

D5  CNAMSS ( 1 REVS' ,6, ' EO* ,6,IC) 

E5  SRCHSS ( K$RDWR+K$NDAM , 1 EO ' , 6, 1 4 , 1 , IC ) 

F5 

G5  SHOWEO 
H5  WRITE (1,1 700) 

J5  READ ( 1 ,50)I0PT 
K5 
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A1 

B1  (IOPT.EQ. 'NO');  (IOPT.NE. 'YE' ) 

Cl 

D1 

El 


FI 

G1 

HI 

J1 

K1 

A2 

B2 

WRITE(1 ,2000) 

C2 

READ(1,50)I0PT 

D2 

(IOPT.EQ. 'RE') 

E2 

(IOPT.NE. 'DE' ) 

F2 

G2 

H2 

, 

J2 

K2 

A3 

33 

C3 

03 

R=1 

E3 

FINISH=1 
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F3  • • 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4  INPSE 

E4  F IN ISH=1 

F4 

G4 

H4 

J4 

K4 

A5  - • 

85 

C5  ' 

D5 

E5 

F5 

G5 

H5 

J5 
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/WRITE 
/ RECORD 
■ / TO  REVERS 

/ file  1 


- * — H -I 


Figure  5.4. 3-2 
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A1 

B1  WRITE (1,1 ) 

Cl  READ(1,2,ERR=5)IDRAW 
01  REWIND  6 

El  READ(6,END=200)DRAW,TIT,PTIT,DT,SYS,VEH,SECT,NSHT,FREV,FNE0,FE0REF 
FI  PERFORMED  BY  El 
GT  (FINISH. EQ.l) 

HI  DO  1101=1,4;  (IDRAW(I).NE.DRAW(I)) 

J1  WRITE (8) DRAW, TIT, PTIT,DT, SYS, VEH, SECT, NSHT,FREV,FNEO,FEOREF 

K1 

A2 

B2  SHOWDW 
C2  WRITE ( 1 , 1 700) 

D2  READ ( 1 ,50)I0PT 
E2 

F2  SRCH$$(K$CLOS, 'DRAW', 6, 0,0,0) 

G2  SRCH$$(K$DELE,' DRAW', 6, 0,0,0) 

H2  CNAM$$(;  REVS' ,6, ' DRAW' , 6 ,IC) 

J2  SRCH$$(K$RDWR+K$NDAM, 'DRAW' ,6,2,1  ,IC) 

K2 

A3 

33 

03  (IOPT.EQ.'NO');  ( IOPT.NE. ' YE' ) 
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04  WRITE ( 1 » 2000 ) 

£4  READ(1 , 50) I0PT 
P4  (IOPT.EQ. * RE ’ ) 
G4  ( IOPT.EQ. ' DE* ) 
H4 
J4 
\ — 

A5  . 

35  R=1 

CS  INPSDW 


FINISH3! 


A1 

B1  $INSERT  COMMON;  $INSERT  SYSCOM> KEYS. F;  INTEGER*2 

CV  J=:401 ; R=0 

01  SRCH$$(K$RDWR+K$NSAM, 'OUT' ,6, 3, 0,0) 

El  WRITE(l.l) 

FI  REWIND  6 
G1  READ( 1 , 3 ) IDES 
HI  (IDES.EQ. ' QU 1 ) 

JT  WRITE(1 ,110) 

Kl 

A2 

B2  READ(1,3)I0PT 

C2  (IOPT.EQ. 'NO');  (IOPT.NE. ' YE' ) 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

Bo 

Co  R=1 

03  PERFORMED  BY  E3  THRU  J3  (PAGES  2 & 3)  and  B1  THRU  FI  (PAGE  5 of  6) 

E3  (IDES.EQ. 'TI* ) 
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F3  (IDES.EQ. 'AL' ) 

G3  (IDES.EQ. 'AC') 

H3  (IDES.EQ. 'DR' ) 

J3  (IDES.EQ. 'DA') 

K3 

A4 

B4 

C4 

D4 

E4  TITDW 

F4  ALDW 

G4  ACTDUE 

H4  DRAWN 

J4  DATDW 

K4 
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E5 
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! Y 

CLEAR 
n rao 

t-  i 

BHl 
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A1 

B1  (IDES.EQ. 1 SY * ) 

Cl  (IDES.EQ. ' VE* ) 

D1  (IDES.EQ. 'SE') 

El  (IDES.EQ. 'CO* ) 

FI  (IDES.EQ. ' EO1 ) 

G1 

HI 

J1 

K1 

A2 

82  SYSDW 

C2  VEHND 

D2  SECTN 

E2  CODE 

F2  EONN 

G2 
H2 
J2 
:<2 
A3 
33 
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F3  WRITE(1 ,98) 

G3  READ(1, 9999) IDES 
H3  (IDES.NE. 1 ') 

J3 

K3 

A4 

B4  WRITE(1,11) 

C4  READ ( 1 ,3) IDES 

04  (IDES.EQ. 1 YE' );  (IDES.EQ. 'NO' ) 

E4  SRCH$$(K$CLOS,'OUT' ,6,0, 0,0) 

F4  SRCH$$(K$DELE, 'OUT'  ,6, 0,0,0) 

64 

H4  CLEAR 

J4  REWIND  6;  REWIND  12;  REWIND  18 

K4 

A5 

B5 

C5 

D5  SRCH$$(K$CLOS, 'OUT' ,6, 0,0,0) 

E5  SRCH$$(K$CLOS,' DRAW', 6, 0,0,0) 

F5  SRCH$$(K$CL0S,'E0',6,0,0,0) 

G5  SRCH$$(K$CLOS, 'SHEET', 6, 0,0,0) 

H5  COMI$S ( ' SOUT ' ,4,12, IC) 
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A1 

B1  $ INSERT  COMMON;  $ INSERT  SYSCOM>  KEYS.F;  INTEGER*2 
Cl  IDUSED  (IAI) 

D1  (IAI.EQ. * SY ' ) 

El  WRITE(1 ,500)  ('SORRY  YOU  ARE  NOT  VALIDATED  TO  USE  THIS  ROUTINE.') 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2  WRITE( 1*6) 

E2  READ(1 , 7) IOPT 
F2  (IOPT. EQ. 'DR') 

G2  (IOPT.NE.'EO' ) 

H2  . 

. J2 
K2  • 

A3 

B3  WRITE ( 1 , 1 ) 

C3  READ(1 ,2,ERR=10)IKNT 
03  ( IKNT.EQ.O) 

E3  SRCH$$( K$RDWR+K$NDAM , ' INACTD ' ,6,5,1 , IC) 
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F3 


G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

K4 

J4 

K4 


SRCH$$ ( K$RDWR+K$NDAM, ' INACTS ' , 6, 7, 1 , I C ) 

SRCH$$ ( K$RDWR+K$NDAM, ' TEMP 1 ,6,6,1 , IC) 

SRCH$$ ( K$RDWR+K$NDAM, ' STEMP ' ,6,10,1, IC) 

READ(9,END=60)DRAW,TIT,PTIT,DT,SYS,VEH,SECT,NSHT,FREV,FNE0,FE0REF 


READ( 1 1 , END=75 ) DRW ,SHTN, REV , NEO , EOREF 
D09999  IL00P=1 , IKMT 


A1 

B1  PERFORMED  BY  J5  (PAGE  3 of  12) 

Cl  WRITE(1,80) 

D1  READ ( 1 , 81 , ERR=82 ) I DR 

El  READ(6,END=200)DRAW,TIT,PTIT,DT,SYS,VEH,SECT,NSHT,FREV,FNED,FE0REF 

FI  PERFORMED  BY  El 

G1  D0150  I =1,4;  (IDR(I).NE.DRAW(I)) 

HI  WRITE(10)DRAW, TIT, PTIT,OT, SYS, VEH, SECT, NSHT, FREV,FNEO,FEOREF 

J1 

Kl  • • 

A2 

B2  ENDFILE  9;  ENDFILE  11 

C2  SRCH$$(K$CLOS, 1 INACTD1 ,6, 0,0,0) ; SRCH$$( K$CLOS, 1 INACTS' , 6,0,0, 0) 

02  SRCH$$(K$CLOS, 1 TEMP 1 , 6,0,0, 0);  $RCH$$(K$CLOS, 'STEMP' ,6, 0,0,0) 

E2  SRCHS$( KSDELE, 'TEMP' ,6, 0,0,0);  SRCH$$(K$DELE, 'STEMP' ,6, 0,0,0) 

F2  SRCHS$(K$CLOS, 'DRAW', 6, 0,0,0) 

G2  WRITE(9)DRAW,TIT,PTIT,DT,SYS,VEH,SECT,NSHT, FREV,FNEO,FEOREF 

i i 

nil 

J2 

K2 

A3 

33. 
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F3 

G3 

H3 

J3 
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C4 

D4 

E4 
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H4 

J4 

K4 
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B5 

C5 

D5 

E5 


SRCH$$(K$DELE,' DRAW ',6, 0,0,0) 

SRCH$$( K$CL0S , ' TEMP ' , 6, 0, 0, 0) 

CNAM$$( 'TEMP' ,6, 'DRAW', 6, IC) 

SRCH$$ ( K$RDWR+K$NDAM, ' DRAW ’ , 6, 2 , 1 , IC ) ; SRCH$$ ( K$RDWR+K$NDAM , ' TEMP ' , 
6,6,1,IC) 

READ(12,END=165)DRW,SHTN,REV,NE0,E0REF 
PERFORMED  BY  B4 

DO  155  K=1 ,4;  (IDR(K).NE.DRW(K)) 

WRITE(14)DRW,SHTN,REV,NE0,E0REF 


WRITE ( 11 ) DRW , SHTN , REV , NEO , EORE  F 


F5 


G5 

H5 

J5 

K5 
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B1 

CT 
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El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


SRCH$$(K$CL0S, 1 E0 ' ,6, 0,0*0);  SRCH$$(K$CLOS, ' ETEMP' ,6,0,0, 0) 
REWIND  12 


DO  323  1=1,10 
PERFORMED  BY  B4 

DO  327  J=1 ,2;  (EOREF(I,J).NE.EON(J)) 


SRCH$$(K$CLOS, ' INACTE' ,6,0, 0,0) 


WRITE(1 3)E0N,ETIT,EPTIT,E0REV,EDT,ERDT,E0VEH 
REWIND  12 

SRCH$$(K$DELE EO1 , 6,0,0, 0) 

CNAM$$(' ETEMP’ ,6,'EO' , 6 , IC) 

SRCH$$(K$RDWR+K$NDAM, 1 EO' ,6,14, 1 , IC) 


i 
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F3 

» 

G3  SRCH$$(K$CLOS,' SHEET', 6, 0,0,0) 

H3  SRCH$$(K$CL0S, 'TEMP' ,6, 0,0,0) 

J3  SRCH$$(K$DELE, ' SHEET', 6, 0,0,0) 

K3  CNAM$$( ’ STEMP' ,6, 'SHEET' 

A4  SRCH$$(K$RDWR+K$NDAM,' SHEET', 6,8,1, IC) 

B4  SRCH$$ ( K$RDWR+K$NDAM , ' STEMP ' ,6,11 ,1 , id) 

C4 

D4 

E4 

F4 

G4  SRCH$$(K$RDWR+K$NDAM, ' INACTE ' ,6,1 3,1 , IC) 

H4  SRCH$$(K$RDWR+K$NDAM, 'ETEMpl ,6,9,1 , IC) 

J4  READ(17,END=305)E0N,ETIT,EPTIT,E0REV,EDT,ERDT,E0VEH 

:<4  WRITE  (1 ,310) 

AS  READ( 1 8, END=400 ) EON , ETIT , EPTIT , EOREV , EDT , ERDT , EOVEH 

B5  PERFORMED  BY  F2 

CS  READ (1 2 , END=335 ) DRW, SHTN , REV , NEO , EOREF 

05  PERFORMED  BY  H2 

3£  (NEO. EQ. 0) 

uC  -4 

:<s 
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A1 

B1  READ(6,END=350)DRAW,TIT,PTIT,DT,SYS,VEH,SECT,NSHT,FREV,FNE0,FE0REF 
Cl  PERFORMED  BY  B1  • 

D1  (FNEO.EQ.O) 

El 

fi 

G1 

HI 

J1 

K1 

A2 

B2 

C2  WRITE( 1 7 ) EON , ETIT, EPTIT, EOREV , EDT, ERDf, EOVEH 

02  DO  343  1=1,10 
E2  PERFORMED  BY  D2 

F2  DO  337  J=1 ,2;  (FEOREF(I,J).NE.EON(J)) 

G2 

H2 

J2 

;<2 

A3 

33 

C3  REWIND  6 

03 
E3 
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F3  WRITE (13)E0N,ETIT,EPTIT,E0REV,EDT,ERDT,E0VEH 

G3  REWIND  6 

H3 

J3 

K3 

A4 

B4 

C4  REWIND  12 
D4  WRITE ( 1 , 360) 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 
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A1 

B1  $ INSERT  COMMON  . 

Cl  CLEAR 

D1  WRITE (1 ,10)EPTIT 

El  WRITE(1,20)E0N,E0REV,EDT 

FI  WRITE(1,30)ERDT,((E0VEH(I,J),J=1 ,2), 1=1 ,2) 

G1 

HI 

J1 

Kl 

A2 

B2 

C2  . 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

33 

C3 

D3 

E3 

Figure  5. 4. 3-5  Page  (2  2) 


- 316  - 


WRITE 

/VEHICLE, 

I SECT.  & NO 
OF  SHEETS  I 


;-cr2-  + 

L/end  of\. 
i \ FIL£  / ~ 


WRITE  /■ 
ERROR  / - 
MESSAGE  / ! 


- 


ANY  ' 
E.O.'S 


WRITE  j' 
"7  ALL  REF.  r 

I h.o/s  / ; 
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A1 

B1  $ INSERT  COMMON 

Cl  CLEAR 

D1  WRITE(1 ,10)PTIT 
El  URITE(1  j20)DRAW,DT,SYS 

FI  WRITE(1 ,30)  ( (VEH(I,J) , J=1 , 2), 1=1,2), SECT, NSHT 
G1  WRITE(1 ,35)FREV;  WRITE(1,70) 

HI  (FNEO.NE.O) 

J1  WRITE ( 1 ,72) 

K1  * 

A2 

B2  REWIND  12 

C2  DO  100  L=2,NSHT 

02  PERFORMED  BY  C2 

E2  READ (12, END=1 50)DRW,SHTN,REV,NE0,E0REF 
F2  PERFORMED  BY  E2 

G2 

H2  DO  81  J=1 , FNEO;  WRITE(1 , 85) (FEOREF(J , K) , K=1 ,2) 

J2  (NSHT. EQ.  ) 

K2 

A3 

33  DO  50  1=1,4;  (DRAW(I).NE.DRW(I)) 

C3 

03  READ(12,END=300)DRW,SHTN,REV,NE0,E0REF 
E3 
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F3  WRITE(1,T60)DRW 
G3 


(SHTN(2).EQ.O) 

WRITE( 1 » 60)SHTN ( 1 ) » REV 


(NEO.NE.O) 
WRITE ( 1 , 72 ) 


WRITE(1 , 52) (SHTN(K) ,K=1 ,2) , REV 


DO  80  J=1,NE0;  WRITE(1,85)(E0REF(J,K),K=1,2) 
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A1 

B1  $ INSERT  COMMON;  INTEGER*2 

Cl  IE0ADD=0 

D1  (R.EQ.O) 

El  WRITE (1 ,1 ) 

FI  READ(1,10,ERR=2)IKNT 

G1  (IKNT.LT.O) ; (IKNT.GT.6) 

HI 

Jl 

Kl 

A2 

82  READ(1 ,10,ERR=5)IR 

C2 

D2  (R.EQ.l ,AND,IR.NE,1 ) 

32  WRITE ( 1 ,101 ) 

F2  LEN=1 0 

32  DO  3800  L00P=1 ,IKNT,1 

H2  PERFORMED  BY  G2 

J2  WRITE ( 1 ,3) 

K2 

A3 

32  (R.EQ.l .AND. IR.NE.2) 

C2  (R.EQ.O. AND. FIRST. EQ.l) 

03  PERFORMED  BY  D2 

E3 
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F3 

TINPUT(ETIT,LEN) 

G3  * 

WRITE (1,1 02 )ETIT 

H3 

DO  105L=1 ,19;  EPTIT(L)=PTIT(L) 

• 

J3 

WRITE( 1 ,110) EPTIT 

K3 

A4 

B4 

PERFORMED  BY  B3  (PAGE  2 of  8) 

C4 

PERFORMED  BY  C3  (PAGE  2 of  8) 

04 

WRITE (1 ,202) 

E4 

READ (1, 203, ERR=201) EON 

F4 

WRITE ( 1 ,203)E0N 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

05 

E5 

F5 

G5 

H5 

J5 

K5 
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A1 


B1  (R.EQ.l .AND. IR.NE.3) 

Cl  WRITE ( 1 ,501 ) 

01  READ (1, 502, ERR=401)E0REV 

El  WRITE ( 1 ,502)E0REV 

-FI  (R.EQ.l .AND. IR.NE.4) 

G1  WRITE (1 ,902) 

HI  READ (1, 903, ERR=901)EDT 

J1  WRITE ( 1 ,903)EDT 

K1 
A2 

B2  PERFORMED  BY  B1 

C2 

D2 

E2 

F2  PERFORMED  BY  FI 

G2 

H2 

J2 

K2 

A3 

33  (R.EQ.l .AND. IR.NE. 5) 

C3  WRITE(1 ,1002) 

03  READ(1 ,903,ERR=1002)ERDT 

E3  WRITE ( 1 ,903)ERDT 
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F3 
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J3 

K3 
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D4 
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F4 

G4 

H4 

J4 


K4 


A5 

B5 


(R.EQ.l .AND.IR.NE.6) 

WRITE(1 ,1202) 

READ ( 1 ,1203 ,ERR=1 201 ) ( (E0VEH( I , J ) ,J=1 ,2) ,1=1 ,2) 
WRITE ( 1 , 1 203 ) ( ( EOVEH ( I , J ) ,J=1 ,2) ,1=1 ,2) 
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/ READ 7 

r how  /' 

MANY  / T 


G2 


DO  FOR 
ALL 

REVISIONS 


■ / WRITE 
1 / ENTER  / . 

7 type  of  / ; 

REVISION  / « 


r~  S * - L 

* / READ  r 
' /USER  / 

* / RESPONSE  / T 


asBi 


G4  — 4 


SET  j- 


E.O.' 

SET 

UPDATE 

FLAG 

IsETE 


A1 

B1  SINSERT  COMMON;  $INSERT  SYSCOM>  KEYS . F ; INTEGER  * 2 . 

Cl  IEOUP  = 0 
D1  NEWSHT  =0 
El  (R.EQ.O) 

pi  write’ (1.1) 

G1  READ  (1,10, ERR  = 2)  IKNT 

HI  (IKNT.LT.O) ; (IKNT.GT.9) 

J1 

/ 1 

K1  ' 

A2 

B2  WRITE’ (1,3) 

C2  READ  (1,10, ERR  = 5)  IR 
D2  (IR.NE.8.AND. IR.NE.7) 

E2  Performed  by  D2 

F2 

G2 

H2  DO.  3800  LOOP  = 1, IKNT,  1 
J2  Performed  by  H2 
K2 
A3 

B3  (R.EQ.l .AND.IR.NE.l) 

C3  WRITE  (1,101) 

D3  LEN  = 10 
E3  (IR.EQ.8) 

Fiaure  5.4. 3—8  Pegs  (2  of  21) 
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F3  WRITE  (1,11) 

G3  READ  (1,25, ERR  * 9)I0PT 
H3  (IOPT.EQ. ’ YE  * ) ; (IOPT.NE. ’ NO ' ) 

J3 

K3 

A4 

B4  Performed  by  B3  (Page  2 of  21) 

C4 

D4  TINPUT  (TIT,LEN) 

E4  WRITE  (1,20) 

F4  READ  (1,25, ERR  = 19)I0PT 
G4  (IOPT.EQ. 'NO' );  (IOPT.NE. 'YE' ) 

H4  NEWSHT  = 1 

J4 

K4 

A5 

B5 

C5 

D5  WRITE  (1 ,102)TIT;  WRITE  (1 ,105)PTIT 
E5  DO  104  I = 1,19;  TTIT(I)  = PTI-T(I) 
F5 

G5  IEOUP  = 1 


r-  81 f 1 


BE  — -* 


r BS-j ; 


r B4--r * 


(—85  — * 


4<  REVISE 


REVISE 


l^REVISE \iY 
SYSTEM 


L Y » 

i ^ 

< , 

1 — X- 

* 

N 

N /S 

( 6 j 

0°) 

*• 

r-  c j — — i 

r*  C2  - 

1 

1 -cz->y^- 

! / WRITE  /! 

i 

I 

! / WRITE 

1 / enter  { 

CO  ; 

i /enter 

i / DRAWING  / i 

i / SYSTEM 

i/  NUMBER  / i 

1 

L 

1 

1 

ii-Y- 

/WRITE 
DRAWING 
NUMBER 


REVISE 


r-F2- XT 

* /^EVISEV 
DATE 


* / WRITE 
! /SYSTEM  I 

T/T°  / 

;/  TERMINAL  / 


REVISE 


^KEVISt^v  iY 
VEHICLE 


~X5 


-X 1 

nT 
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A1 


81 

(R.EQ.l .AND.IR.NE.2) 

Cl 

WRITE  (1,202)  . 

01 

READ  (1,203, ERR  = 201)  DRAW 

El 

WRITE  (1,203)  DRAW 

FI 

(R.EQ.l .AND.IR.NE.3) 

G1 

WRITE  (1,402) 

HI 

READ  (1 ,408,  ERR  = 401 )DT 

J1 

WRITE  (1 ,403)DT 

K1 

• 

A2 

• 

B2 

Performed  by  B1 

C2 

D2 

• 

«■“  r\ 

F2 

Performed  by  FI 

G2 

H2 

« 

J2 

*• 

K2 

A3 

33 

(R.EQ.l. AND. IR.NE. 4) 

C3 

WRITE  (1,502) 

03 

READ  (1,503, ERR  = 501)  SYS 

E3 

WRITE  (1,503)  SYS 

Figure  5.4. 3-8 
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F3  (R.EQ.l .AND.IR.NE.5) 

S3  WRITE  (1,902) 

H3  READ  (1, 903, ERR  = 901)  ((VEH(I,J),J  = 1,2), I = 1,2) 

J3  WRITE  (1 ,903)((VEH(I,J),J  = 1,2), I =1,2) 

K3 

A4 

B4  Performed  by  B3  (Page  5 of  21) 

C4 

D4 

E4  ''  ' 

F4 

G4 

H4 

J4 

K4  • 

A5 

B5 

C5 

D5 

E5 

F5 

35 

H5 

05 

K5 

Figure  5.4. 3-8  Page  (6  of  21) 


- 333  - 


SHTADD 
ADD  NEW 
SHEET  TO 
DRAWING 


A1 

B1  (R.EQ.l .AND. IR.NE. 6) 

. CT  WRITE  (1,2202) 

D1  READ  (1,2203, ERR  = 2201 )SECT 

£]  WRITE  (1 ,2203)SECT 

pj  (R.EQ.l .AND. IR.NE. 7) 

G1  (R.EQ.O) 

H1  (NEWSHT.EQ.l ) 

J1 

K1 

A2 

32  Performed  By  B1 
C2 

D2 
■ £2 

F2  Performed  By  FI 

62 

H2  FIXSHT 

• J2  WRITE  (1,2302) 

K2  . 

• ++ 

HO 

33  READ  (1,2303, ERR  = 2301)NSHT 

Co  WRITE  (1 ,2303)NSHT 

03  (R.EQ.l. AND. NEWSHT.EQ.l) 

E3 


Fioure  5. 4. 3-8 
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F3  (R.EQ.O) 

G3 

H3 

J3 

K3  ' 

A4 

B4 

C4 

D4  Performed  By  D3  (Page  8 of  21 ) 

E4 

F4  INPSS 

G4  Performed  By  H2  (Page  2 of  21) 

H4  SHOWDW 

J4 

K4 

A5 

B5 

C5 

D5  SHTADD 

E5 

F j 

G5 

H5 

J5 

K5 
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A1  • 

B1  (R.EQ.l .AND. IR.NE.8) 

Cl  WRITE  (1,2408) 

D1  FINISH  = 0 

El  READ  (1,2409, ERR  = 2407)  (ISHTN(K) ,K  = 1,2) 

FI  ( ISHTN ( 1 ) .NE.l .OR. ISHTN(2) .NE.O) 

G1  SRCH$$ ( K$RDWR  + K$NDAM , ’ STEMP 1 , 6 , 1 0 , 1 , I C) 

HI  REWIND  12 

J1  READ  (12, END  = 2470)DRW,SHTN,REV,NE0,E0REF 

K1 

A2 

B2  Performed  By  B1 

C2 

D2 

£2 

F2  WRITE  (1,2402) 

G2 

H2 

J2 

K2 

A3 

33  Performed  By  J1 
C3  (FINISH. EO. 1 ) 

D3  DO  24151  = 1,4;  (DRAW(I).NE.DRW(I)) 
r*; 

Figure  5.4. 3-8  Page  (11  of  21 
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F3  READ  (1,2403, ERR  = 2448)FREV 
G3  (IE0UP.EQ.0) 

H3  (FNEO.NE.O) 

J3 

K3 

A4 

B4  SRCH$$(K$CLOS, 'STEMP' ,6, 0,0,0) 

C4 

D4  DO  24201  = 1,2;  (ISHTN(I).NE.SHTN(I)) 

E4 

F4 

G4 

H4  FNEO  = 0 

04  DO  2449  K = 1,10;  FEOREF(KJ)  = ' ' ; 

K4 

A5  ' 

55  SRCH$$ ( KSCLOS , ' SHEET 1 , 6 , 0 , 0 , 0 ) 

C5  SRCH$$(K$DELE, 'SHEET' ,6, 0,0,0) 

55  CNAMSS ( ’ STEMP ' , 6 , ' SHEET ' , 6 , I C ) 

E5  SRCH$$(K$RDWR  + KSNDAM,  'SHEET',  6,8, 

F5 

G5  ' 


J5 

K5 


Fiaure  5. 4. 3-8 


FE0REF(K,1 ) 


1,  ic) 


A1 

B1  WRITE  -(1  ,2402) 

Cl  READ  (1, 2403, ERR  = 2448)  REV 

01  WRITE  (1,2403)  REV 

El  (IEOUP.EO.O) 

F1  (NEO.NE.O) 

G1 

HI 

J1 

K1 

A2 

B2  (R.EQ.l .AND.IR.NE.9) 

C2  REWIND  12 
D2  WRITE  (1,2511) 

E2  . 

F2  NEO  =0 

G2  DO  2450  K = 1,10;  E0REF(K,1 ) = ' ' ; E0REF(K,2)='  ' 

H2  FINISH  = 1 

J2  WRITE  (14)  DRW,  SHTN,  REV,  NEO,  EOREF 

K2 

A3 

S3  Performed  by  B2 
C3 

03  READ  (1,2512, ERR  = 2510)  (ISHTN(K) ,K  =1,2) 

£3  ( ISHTN ( 1 ) . NE.l .OR. ISHTN(2) .NE.O) 

Fiaure  5. 4.3-8  Psoe  (14  of  21) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 


r3 


SRCH$$(K$RDWR  + K$NDAM,  ' STEMP* ,6,10,1 ,IC) 
READ  (12, END=2800 ) DRW , SHTN , REV , NEO , EOREF 
Performed  by  G3 

DO  2520  I = 1,4;  (DRAW(I) .NE.DRW(I) ) 


DO  25301  = 1,2;  (ISHTN(I) .NE.SHTN(I)) 


SRCH$$ ( K$CLOS , ' STEMP 1 ,6, 0,0,0) 

SRCH$$ ( K$CLOS , 'SHEET' ,6, 0,0,0) 
SRCH$$(K$DELE, 'SHEET' ,6, 0,0,0) 

CNAM$$( 'STEMP' ,6, 'SHEET' ,6, IC) 

SRCH$$( K$RDWR  + K$NDAM, ' SHEET' ,6,8,1 , IC) 


G5 

H5 

J5 

K5 


Figure  5. 4. 3-8 
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in 
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A1 


B1  DO  2600  I = 1,  10 

Cl  Performed  by  B1 

D1  (EOREF(I,lj.NE.'  ') 

El  WRITE  (1,2505)  I,(EOREF  (I,J),  0 = 1 ,2) 

FI 
61 
HI 
J1 

K1  ' ‘ 

A2 

B2 

C2 


D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


WRITE  (1,2605) 

READ  (1,2620, ERR  = 2503)I0PT 
(IOPT.LT.O.OR. I0PT.6T.I) 


WRITE  (1,2660) 

READ  (1,2670, ERR  = 2660)  (EOREF(K,N) ,N  = 1,2) 


Figure  5. 4. 3-8 
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F3  (IOPT.EQ.O) 

G3 

H3 

03 

K3 

A4 

B4  DO  2550  I = 1,10 

C4  Performed  by  B4 

D4  (FEOREF  (I,  1).NE.'  ') 

E4  WRITE  (1, 2505)1, (FEOREF(I,J),j=l, 2) 

F4  DO  2700  J = 1,I0PT 

G4  Performed  by  F4 

H4  WRITE  (1,2650)  I 

J4  READ  (1,2620, ERR  = 2640) K 

K4. 

A5 

B5 

C5 

D5 

E5 

F5 

G5  WRITE  (14)DRW,SHTN,REV,NE0,E0REF 


Figure  5. 4. 3-8 


A1 


B1  WRITE  (1,2605) 

Cl  READ  (1,2620, ERR  = 2563) I0PT 

01  (IOPT.LT.O.OR.IOPT.GT.I) 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2  (IOPT.EQ.O) 

E2 

F2  ' * 

G2 

H2 

J2 

K2 

A3 

33 

C3 

D3  DO  2570  J = 1 , IOPT 

E3  Performed  by  03 

Figure  5.4. 3-8 
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F3  WRITE  (1,2650)1 

G3  READ  (1,2620, ERR  = 2564) K • 

H3  WRITE  (1,2660) 

03  READ  (1,2670, ERR  = 2565)  (FE0REF(K,N) ,N  = 1,2) 

K3 

A4 

B4 

C4 

D4 

E4  ' • 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

05 

K5 
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DATA  < 
HANDLING  I 
DEFINITION  j! 


-Cl  - - 


‘ / WRITE  /! 

J ENTER  /; 

; / SHEET  / i 

»/  REVISION.  ' 


REWIND 

E.O. 

SUBFILE 


WRITE 
RECORD 
TO  E.O.  / 
FILE  ! 


, C4  — 

i /write  7 

x / ENTER  /. 

*/  SHEET  NO.  / 

7 AND  REV  / 


Tir-Lz— 

/read  /; 

/SHEET  NO.  /{ 
r AND  REV  / I 


r85-  -*■ 


RETURN 


ENTER  NO 


/WRITE 
( ENTER 
NO.  OF 


CLEAR  EO 


OF  E.O.  S 
CLEAR  E.O 
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A1 

61  $ INSERT  COMMON 
Cl  WRITE (1,1 001 ) 

D1  READ (1,1 003, ERR=1 000 )FREV 
El  WRITE(1 ,1006) 

FI  READ(1,1008,ERR=1005)FNE0;  D01009  1=1,10;  0010100=1,2 
G1  (FNEO.EQ.O) 

HI 

J1 

K1 

A2 

62  READ(1 ,2520, ERR=1 201 ) (FE0REF(K,L),L=1 ,2) 

C2  REWIND  18 

D2  READ(18,END=1210)E0N,ETIT,EPTIT,.E0REV,EDT,ERDT,E0VEH 
E2  PERFORMED  BY  D2 

F2  D01206  L=1 ,2;  ( EON ( L ) . NE . FEOREF ( K, L ) ) 

G2  D01200  K=1,FNE0 
H2  PERFORMED  BY  G2 
J2  WRITE(1 ,2510) 

K2 

A3 

33  DOT 21 6 M=1 ,2;  EON(M)=FEOREF(K,M) 

C3  WRITE (18) EON, ETIT,EPTIT,EOREV,EDT,ERDT,EOVEH 

33 

E3  R=0 
Figure  5. 4. 3-9 
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; FEOREF(I,J)='  ' 
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F3  FIRST=1 


G3  WRITE (1,1 

H3  READ(18,END=1215)E0N,ETIT,EPTIT,E0REV,EDT,ERDT,E0VEH 
J3  INPSE 

K3 
A4 

B4  (NSHT.LT.2) 

C4  D02800  J=2,NSHT;  WRITE(1 ,2402) 

D4  READ(1 ,2403;  ERR=2401 ) (SHTN(K) ,K=1 ,2) ; READ(1 ,1003, ERR=2404) REV 
E4  WRITE(1 , 1006) 

F4  READ( 1 , 1 008, ERR=2406)NE0;  D02451  K=l,10;  D02450  L=l,2  E0REF(K,L)='  ' 
G4  (NE0.LT.0) 

H4  (NEO.EQ.O) 

J4 

:<4 

A5 

35 

C5 

D5 

E5 

F5 

G5 

H5  D02550  K=1,NE0 

J5 

K5 

Figure  5. 4. 3-9  Pace  (3  of  6) 
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AT 

f 

wBl  PERFORMED  BY  H5  (Page  1 of  6) 

r 

Cl  WRITE(1 ,2510) 

01  READ( 1 , 2520, ERR=2508)  (E0REF(K,L) ,L=1  ,2) 

El  WRITE(1 ,1205) 

FI  REWIND  18 

G1  READ(1 8,END=1 240)E0N,ETIT,EPTIT,E0REV,EPT,ERDT,E0VEH 

HI  PERFORMED  BY  G1 

J1  D02532  L=1 ,2;  (E0N(L).NE.E0REF(K,L) ) 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

h'2  R=0 

J2  FIRST=1 
K2 
A3 

33  READ( 18, END=2545)E0N,ETIT,EPTIT,E0REV,EPT,ERDT,E0VEH 
C3  INPSE 

03  D02546  M=l,2;  EON(M)=EOREF(K,M) 

E3  WRITE (18) EON, ETIT,EPTIT,EOREV,EDT,ERDT,EOVEH 


Figure  5. 4. 3-9 
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F3  WRITE(12)DRAW,SHTM,REV,NE0,E0REF 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

*4 

.45 

35 

C5 

05 


:<= 
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A1 


B1  SINSERT  COMMON;  $ INSERT  SYSCOM>  KEYS.F 
Cl  REWIND  12 

D1  SRCH$$ ( K$RDWR+K$NDAM , ' STEMP ' ,6,10,1 , IC) 
El  READ( 1 2 , END=1 000)DRW,SNTN , REV , NEO , EOREF 

FI  PERFORMED  BY  El 
G1  DO  100  1=1,4;  (DRAW(I).NE.DRW(I)) 

HI  write(14)drw,shtn,rev,neo;eoref 

J1 

K1 

A2 

32 

C2 


D2 

E2 


F2  WRITE (1 , 300) 

G2 
H2 
J2 
:<2 
A3 


33  SRCH5$( KSCLOS , ’ REVS', 6, 0,0,0) 

w V 

D3 

E3 


Figure  5.4.3-10 
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F3  SRCH$$ ( K$CLOS , ' STEMP ' , 6, 0, 0, 0) 

G3  SRCH$$(K$CL0S, 'DRAW' ,6, 0,0,0) 
H3  SRCH$$ ( K$CL0S , ' E0 ' , 6, 0, 0, 0) 

J3  SRCH$$(K$CLOS, 'SHEET' ,6, 0,0,0) 

K3 

A4 

B4 

C4 

04 
E4 
F4 
G4  ' 

H4 

J4 

K4 

A5 

B5 

C5 

05 

r-  — 

F5 

G5 

r i ^ 

nc 

uC 

:<5 
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! 


X SHTADD  > 


1 

r—  Bl 

1 

1 

DATA 

* 

HANDLING  t 

HOUSEKEEPING F 

1* 

— ci 

INITIALIZE  : 
FINISHED  * 
FLAG  J 


/WRITE  h 

ENTER  \ 

SHEET  / T 

NUMBER  / i 


r 

S / READ 
1/  SHEET  ; • 
;/  NUMBER  / , 


ja,. 


1 

i 

r-  B2-  J 

i 

i 

: l 

SET  TO  l 

I NO 

\ REVISE  [ 

1 _ 

r-CZ  - ■ 

1 , 

1 SET  NUMBER  l 

OF  E.l 

D.'S  k 

TO  ZERO 


r02-.4--- 

i /WRITE  NEW 
4.  / SHEET  TO  , 
;/  TEMP  / 


; /write  next/; 

. / SHEET  / + 
'/  RECORD  / 


If- 


32-  f 

0 - 

I 


rB3-  I 


• C3—  f 1 


t I 


r 94  — - 2 

• Mute 7. 

J/record  /: 

"7  TO  SHEET  / * 
-7  TEMP  FILE/  : 


C4--I 


•95—  j 

SRCHSS 

CLOSE 

SHEET 

SUBFILE 


:5-4-£XL 

SRCHSS 

CLOSE 

SHEET 

TEMP  FILE  ! 


>05  — ' 

i|  SRCHSS 
J DELETE 
SHEET 
SUBFILE 


CNAMSS  I" 
CHANGE  I; 
TEMP  NAME  |j 
TO  SHEET  !!• 


-»  — I — tXI- 


1 SET 

FINISHED  r 

4- 

: 

SRCHSS  1* 
OPEN  NEW  1 

flag  f 

i A 

1 

1 

SHEET  n 

SUBFILE  ' j; 

- • K 'i  - 
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AT 

B1  SINSERT  COMMON;  $ INSERT  SYSCOM>  KEYS.F;  INTEGER*2;  *4 
Cl  FINISH=0 
D1  WRITE(1 ,10) 

El  READ(1,15,ERR=5)  (IISHTN(N),N=1 ,2) 

FI  (IISHTN(l).EQ.l) 

G1  ( I ISHTM ( 1 ) . EQ. SHTN ( 1 ) ) 

HI  DO  20  1=1,4;  ( DRW( I ) . NE . DRAW 
J1 

K1  • 

A2 

B2  IIREV='NC' 

C2  IINE0=0 

02  WRITE (14) DRW , 1 1 SHTN , II  REV , 1 1 NEO  ^1 1 EORE 

E2  WRITE (14) DRW , SHTN, REV, NEO , EOREF 

F2  FINISH=1 
G2 

H2  READ(1 2, END=200)DRW, SHTN, REV, NEO, EOREF 

J2  PERFORMED  BY  H2 

K2 

A3 

B3 

C3  (FINISH. EQ.O) 

03 
E3 

Figure  5.4.3-11  Pace 
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F3 

G3 

H3 

J3 

K3 

A4 

B4  WRITE(14)DRW,SHTN,REV,NE0,E0REF . 

C4 

D4 

E4 

F4 

G4 

H4 

04 

U 


A5 

35  SRCHSS(KSCLOS, ’SHEET' ,6, 0,0,0) 

C3  SRCHSS ( KSCLOS , ' STEMP' , 6,0, 0, 0) 

D5  SRCHSS(K$DELE, 'SHEET' ,6, 0,0,0) 

E5  CNAMSS ( ' STEMP ' , 6 , ’ SHEET ' , 6 , 1 C ) 

F3  SRCHSS (KSDWR+KSNDAM, 'SHEET', 6,8, 1,IC) 


K5 
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Figure  5.4.3-12 


- 361  - 


Page  (1  of  9) 


B1  $INSERT  COMMON;  $ INSERT  SYSCOM^KEYS.F;  INTEGER*2 
Cl  WRITE (1 ,2) 

01  READ(1 ,3,ERR=1 )IOPT 

El  (IOPT.LE.O) 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 


E2  D0300  1=1  , IOPT 

F2  PERFORMED  BY  E2 

G2  REWIND  12 
H2  WRITE (1 1 5) 

J2  READ(1 ,6,ERR=4)IDR 


K2 


A3 

33  WRITE ( 1 , 8) 

C3  READ(1 , 3,ERR=7) IANS 
03  (IANS.LE.O) 

E3 


Figure  5.4.3-12 


F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4  D0250  J=1,IANS 

E4  PERFORMED  BY  E4 

F4  WRITE(1 ,13) 

G4  READ(1,15,ERR=12)  (ISHT(N) ,N=1 ,2) 

H4  (ISHT(l).LE.O) 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F3 

G5 


K5 

Figure  5.4.3-12  Pace  (3  of  9) 


- 363  - 


Figure  5.4.3-12  , . 364  _ Page  (4  of  9) 


A1 

81  (ISHT(l).EQ.l.AND.ISHT(2).EQ.O) 

Cl  SRCH$$ ( K$RDWR+K$NDAM , ' STEMP ',6,10,1,1c) 

01  FINISH-0 

El  REWIND  12 

FI  READ(12,END=200)DRW,SHTN,REV,NEO,EOREF 

G1  (FINISH. EQ. 1 ) 

HI  D020  L=1 ,4;  { IDR(L). ME. DRW ( L ) ) 

J1 
Kl 
A 2 

32  (NE0.EQ.4) 

C2 

02 


32  SRCHSS ( KSCLOS, ' STEMP ' , 6 ,0 , 0, 0 ) 

" / 

32  D025  N=1 ,2;  ( ISHT(N) . NE.SHTN(M) ) 

.<2 


22  WRITE ( I ,30)  ( ISHT(N) ,N=1 ,2) .DRW 

23  (NEO. EQ, 5) 


F‘C'_,r2  5.4.3-12 
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F3 

G3  SRCH$$ ( K$CLOS ," SHEET* , 6 ,0* 0, 0) *,  SRCH$$(K$DELE, 'SHEET' ,6,0,0, 0) 

H3  CNAM$$( ' STEMP' ,6, 'SHEET' ,6,IC) 

J3  NE0=NE0+1 

K3 

A4 

B4 

C4  WRITE ( 1 ,40)  (ISHT(N),N=1 ,2), DRW 

D4  (NE0.GE.6) 

E4 

F4 

G4  (J.EQ.IANS) 

H4  SRCH$$(K$RDWR+K$NDAM, 'SHEET', 6,8,1, IC) 

J4  FINISH=0 

’<*1 
A5 
35 
C5 

D5  WRITE (1 ,50)  (ISHT(N) ,N=1 ,2) ,DRW,NE0 

£5  DOT 50  K= 1,2;  E0REF(NE0, K)=E0N(K) 

* W 

35  FIN I SH= 1 

H5  WRITE (14) DRW , SHTN , REV , NEO , EOREF 

:<5 


Ficsjre  5.4.3-12  3=ce  (6  of  9) 
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t . 

O r* 

’^12  l - ” V 

1 

D - 

- 

- 

r^\ 

* o - 

j 
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A1 

• • 

B1  SRCH$$(K$RDWR+K$NDAM,  'TEMP'  ,6,6, 1 , IC)  • 

Cl  FINISH=0 
01  REWIND  6 

El  ISHT(1 )=1 ; ISHT(2)=0 

Fl  READ(6, END=285) DRAW, TIT, PTIT,DT, SYS, VEH, SECT, NSHT,FREV,FNEO,FEOREF 

G1  PERFORMED  BY  Fl 

HI  (FINISH- EQ. 1 ) 

J1  D0265  L=1 ,4;  ( I DR(L ) . NE . DRAW (L ) ) 

K1  • 

A2 

B2  (FNE0.EQ.4) 

C2 

D2 

E2  . 

F2 

G2  SRCH$$(K$CLOS, 'TEMP', 6, 0,0,0) 

H2 

J2  FNEO=FNEO+l  * 

K2 

A3 

33  WRITE (1,30)  ( ISHT(fl)  ,N=1 ,2)  ,DRAW 
C3  (FMEO.EQ, 5) 

03 

E3 

Figure  5.4.3-12  Page  (8  of  9) 
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F3 


G3  SRCH$$(K$C10S, 'DRAW', 6, 0,0,0);  SRCH$$ (K$DELE , * DRAW* ,6, 0,0,0) 

H3 

J3 

K3 

A4 

84 

C4  WRITE(1,40)  (ISHT(N) ,N=1 ,2), DRAW 
D4  (FNE0.GE.6) 

E4 

F4 

G4  CNAM$$( 'TEMP' ,6, 1 DRAW , 6,IC) 

H4  SRCH$$(K$RDWR+K$NDAM, 'DRAW' ,6,2,1, IC) 

J4  FINISH=0 

• 9 % 

\-T 

A5 

33 

C5 

D5  WRITE (1,50)  ( I SHT ( N ) , N=1 , 2 ) , DRAW , FNEO 

£5  D0270  K=1 , 2 ; FEOREF ( FNEO, K)= EON ( K) 

r;  FINISH=1 

I W 

35  WRITE ( 1 0)DRAW,TIT, PTIT,DT, SYS, VEH, SECT, NSHT,FREV, FNEO, FEOREF 
.<3 
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Al 


WRITE{7 ,200) 
(R.EQ.l) 
VJRITE{7 ,500) 


B1 
Cl 
D1 
El 
FI 
G1 
HI 
01 
K1 
A2 
B2 

C2  WRITE (7 , 300 ) 

D2 

EZ 

F2 

G2 

H2 

J2  ' 

.<2 

A3 


JO 
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L9. 


r B2-  ± 

; / WRITE  } 

• / FIRST  / i 


REVISION 


Figure  5.4.3-14 


A1 

B1  $INSERT  COMMON;  INTEGER*2 

Cl  EOKNT  =1 

D1  (INEO. EQ.l. AND. SECOND. EQ.l) 

El  WRITE  (1,998);  WRITE' (7,999) 

FI  WRITE  (1 ,100)KNT,PTIT;  WRITE  (1 ,120)DRAW,DT 

G1  WRITE  (7,220)KNT,PTIT,DRAW,DT 

H1  INEO  = 1 

J1  (FIRST. EQ. 0) 

K1  . 

A2 

B2  WRITE  (1 ,160)FREV;  WRITE  (7 ,1 60)FREV 

C2  (R.EQ.O) 

D2  II  = FNEO 

E2  (FNEO. GT. 10) 

F2  ' 

G2 

H2 

J2 

K2 

A3 

33 

C3  II  = FNEO 

03  (FNEO. GT. 10) 

E3  II  = TO 

Figure  5.4.3-14  . Page  (2  of  9) 
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F3  DO  35  I = 1,11 

63  Performed  by  F3 

H3  ( FEOREF ( I » 1 ).EQ. ' ') 

J3  WRITE  (1,38)1, (FEOREF(I,K),K  = 1,2) 

K3  WRITE  (7,38)1 , ( FEOREF ( I , K ) » K = 1,2) 

A4 

B4 

C4 

D4 

E4  DO  3011  = 1,11  . .. 

F4  Performed  by  E4 

G4  READ  (18, END  = 90 ) EON , ETIT , EPTIT , EOREV , EDT , ERDT , EOVEH 
H4  Performed  by  G4 

J4  00  4001  = 1,2;  ( EON (N) . NE . EOREF  ) 

:<; 

A 5 
35 
C5 
05 


:<S 

Figure  5.4.3-14  Page  (0  of  9) 
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A1 


B1  (EOREV.EQ. * NC ' ) 

Cl  WRITE  (1,1 40) EOKNT , EON , EOREV , EDT 

D1  WRITE  (7, 230) EOKNT, EON, EOREV, EDT, EPTIT 

El 

FI 

G1 

HI 

J1  • 

K1 

A2 

B2  WRITE  ( 1,1 40) EOKNT, EON, EOREV, FRDT 
C2  WRITE  (7, 230) EOKNT, EON, EOREV, ERDT, EPTIT 
02  EOKNT  = EOKNT  +1 

E2  (EPTIT(1 ) ,NE. 1 ') 

F2 

G2 

H2 

J2 

K2 

A3 

B3  ( SHTN ( 2 ) . EQ. 0) 

C3  WRITE  (1 ,270)SHTN(1 ) ,REV 

D3  WRITE  (7,270)SHTN(1 ) ,REV 

E3  WRITE  (1,1 30) EPTIT 

Figure  5.4.3-14  Page  (5  of  9) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

05 

K5 


REWIND  18 


WRITE  (1,260)  (SHTN(K) ,K  = 1,2),  REV 

WRITE  (7,260)  SHTN.REV 

(R.EQ.O) 

II  = NEO 
(NE0.GT.10) 


II  = 10 
DO  37  = 1,11 


Figure  5.4.3-14 
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A1  • 

B1  Performed  by  G5  (Page  6 of  9) 

Cl  (EOREF(I.l).EQ. ' 

D1  WRITE  (1,38)  I,  (E0REF(i;iO,K  * 1,2) 

£1  WRITE  (7,38)  I,  (E0REF(I,K),K  = 1,2) 

FI 

G1 

HI  II  = NEO 
J1  (NEO.GT. 1 0) 

K1 

A2 

B2  DO  300  I = 1,11 
C2  Performed  by  B2 

D2  READ  (18, END  = 90 ) EON , ETIT , EPTIT , EOREV , EDT , ERDT , EOVEH 
E2  Performed  by  C2 

F2  DO  400  N = 1,2;  (EON(N) .NE.EOREF(I ,N) ) 

G2 

H2 

J2  II  = 10 

K2 

A3 

B3 

C3  RECYC.L 
D3 

E3  REWIND  18 

Figure  5.4.3-14  Page  (8  of  9) 
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F3 

G3 

H3 

J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 


(EOREV. EQ. ' NC ' ) 

WRITE  (1,140) EOKNT , EON , EOREV , EDT 
WRITE  (7,230) EOKNT, EDN , EOREV , EDT , EPTIT 


PAUS 

/ 

WRITE  (1 ,140) EOKNT, EON, EOREV, ERDT 
WRITE  (7,230) EOKNT , EON , EOREV , ERDT , EPTIT 
EOKNT  = EOKNT  +1 
( EPTIT ( 1 ) .NE. ' ') 


E5 


F5 


G5 

H5 


05  WRITE  (1 ,230)EPTIT 
K5 
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A1 

B1  {INSERT  COMMON;  INTEGER  * 2 
Cl  INEO  =0 
D1  EOKNT  =1 

El  WRITE  (1,998);  WRITE  (7,999) 

FI  WRITE  (1 ,1 00)KNT,PTIT;  WRITE  1 ,120)DRAW,DT 

G1  WRITE  (7,220)KNT,PTIT,DRAW,DT 

HI  WRITE  (1 ,231 )FREV;  WRITE  (7,231 )FREV 

J1  (FNEO.EQ.O) 

K1 

A2 

B2  II  = FNEO 
C2  (FNEO. GT. 10) 

D2 

E2 

F2 

G2 

H2 

J2  (R.EQ.O) 

K2 

A3 

33 

C3  II  = 10 

D3  DO  351  = 1,11 
£3  Performed  by  D3 
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F3  (FE0REF(I,1 ).EQ. ' ') 

G3  WRITE  (1,38)1, (FEOREF(I,K) ,K  = 1,2) 

H3  WRITE  (1 ,38)1, (FEOREF(K,K) ,K  = 1,2) 

J3 

K3 

A4 

B4  II  = FNEO 
C4  (FNEO. GT. 10) 

D4  : 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5  II  = 10 

D5  DO  301  I = 1,11 

E5 

F5 

G5 

H5 

J5 

K5 
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A1 

B1  Performed  by  D5  (Page  3 of  12) 

Cl  READ  (18, END  = 91 ) EON , ETIT, EPTIT , EOREV , EDT , ERDT , EOVEH 
D1  Performed  by  Cl 

El  DO  401  N = 1,2;  (EON(N) .NE.FEOREF(I,N)) 

FI 

G1 

HI 

J1 

K1  ' 

A2 

B2  (NSHT.EQ.l ) 

C2 

D2 

E2  (EOREV. EQ.'NC') 

F2  WRITE  (1,140)E0KNT, EON;  EOREV, EDT 

G2  WRITE  (7, 240)E0KNT, EON, EOREV, EDT, EPTIT 

H2 

J2 

K2 

A3 

53'  DO  190  K = 2,NSHT 
Q3  Performed  by  B3 
D3  EOKNT  =1 

E3  WRITE  (1,1 40) EOKNT, EON, EOREV, ERDT 

* 

Figure  5.4.3-15  Page  (5  of  12) 
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F3 

63 
H3 
J3 
K3 
A4 
B4 
C4 
D4 
E4 
F4 

64 
H4 
J4 
K4 
A5 
B5 
C5 
D5 
E5 
F5 

65 
H5 
J5 
K5 


WRITE  (7 , 230) EOKNT , EON , EOREV , ERDT , EPTIT 
EOKNT  = EOKNT  + I 
( EPTIT (1 ) . NE. 1 ’) 


REWIND  12 

READ  (12, END  = 190)DRW,SHTN,REV,NE0,E0REF 
Performed  by  D4 

DO  170  J = 1,4;  (DRW(J) .NE.DRAW(J)) 

WRITE  (1 ,130)EPTIT 
REWIND  18  ' 


RECYCL 

PAUS 


Figure  5.4.3-15 


B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

r-  <■» 

— ✓ 

F2 

G2 

H2 

J2 

K2 

A3 


(SHTN(2) .EQ.O) 

WRITE  (1,270)  SHTN ( 1 ) ,REV 
WRITE  (7,270)  SHTN (1), REV 


WRITE  (1,260)  (SHTN(J),J  = 1,2),  REV 
WRITE  (7,260)  (SHTN(J),J  = 1,2),  REV 
INEO  = INEO  + NEO 
(NEC. EQ.O) 

(R.EQ.O) 

II  = NEO 
(NE0.GT.10) 


B3 

C3 

D3 

E3 


Figure  5.4.3-15 


F3 

II  = NEO 

G3 

(NE0.GT.10) 

H3 

II  = 10 

J3 

DO  37  I = 1 , 

K3 

A4 

B4 

Performed  by 

C4 

(E0REF(I,1). 

D4 

WRITE  (1,38) 

E4 

WRITE  (7,38) 

F4 

G4 

II  = 10 

H4 

DO  300  1=1 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 

- 

1,2) 

1,2) 
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A1 


B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


Performed  by  H4  (Page  9 of  12) 

READ  (18,  90 ) EON , ETIT , EPTIT , EOREV , EDT , ERDT , EOVEH 
Performed  by  Cl 

DO  400  N = 1,2;  CEON CN ) . NE , EOREF 


(EOREV.EQ. 

WRITE  (1 , 1 40 )EOKNT, EON, EOREV, EDT 
WRITE  (7 , 240) EOKNT , EON , EOREV , EDT, EPTIT 


WRITE  (1 ,140) EOKNT, EON, EOREV, ERDT 
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F3  WRITE  (7,230) EOKNT , EON , EOREV , ERDT , EPTIT 
G3  EOKNT  = EOKNT  +1 
H3  ( EPTIT (1 ) .NE. 1 ') 

J3 

K3 

A4 

B4 

04 

D4 

E4 

F4 

G4 

H4  WRITE  (1 ,130)EPTIT 

Jd  REWIND  18 

K4 

A5 

35 

C5 

t 

D5 

E5 


J5 

K5  ’ - 

Figure  5.4.3-15  Page  (12  of  12 


- 392  - 


<3-  + ; 
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A1 

B1  SINSERT  COMMON;  $INSERT  SYSCOM  >KEYS.F;  INTEGERS;  *2 
Cl  T1  = 0 

D1  IPAGE  =0 

El  ILINE  = 0 

FI  DO  80031  = 1,4;  DO  8004  J = 1,3;  IEX(I,J)  = ' ' 

G1  CLEAR 

H1  WRITE  (1,2) 

jl  • READ  (1,8, ERR  = "1001 )ICON 

K1 

A2 

B2  (ICON.LT.l);  (IC0N.GT.4) 

C2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3  DO  1000  LOOP  = 1,IC0N 

C3  Performed  by  B3 

D3  WRITE  (1,1) 

E3  LEN  = 10 


Figure  5.4.3-16 
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F3  TINPUT  (IT.LEN-) 

G3  (IT(l).EQ. 'QUIT') 

H3  SRCH$$(K$RDWR+K$NDAM, 'T1 ' ,6,9,1  ,IC) *»  SRCH$S ( KSRDWR+K$NDAM , 1 T2 1 ) ' 

6,10,1,IC) 

J3  DO  8006  K = 1,3;  IEX  (LOOP,K)  = IT(K) 

K3 

A4 

84 

C4  SRCH$$(K$RDWR+K$NDAM, 'T1 1 ,6,9,1 ,IC) 

D4  SRCH$$(K$RDWR+K$NDAM,'T2',6,10,1,IC) 

E4  (DOC.LT.l) 

F4  DO  9999  I = I, DOC 

G4  Performed  by  F4 

H4  READ  ( 10, END=1 020) DRAW, TIT, PTIT,DT, SYS, VEH, SECT, NSHT,FREV,FNEO, 

FEOREF 

J4  Performed  by  H4 

K4 

A5  . 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 
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1 

1 

1 

I i 

ran 
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r k5  - +•- 
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I : 
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A1 

B1  Performed  by  Cl  Thru  G1 
Cl  (T1.EQ.0) 

D1  (Tl.EQ.l) 

El  (T1.EQ.2) 

FI  (T1  - EQ . 3 ) 

G1  (T1.EQ.4) 

HI 

J1 

K1 


A2 

62 

C2 

IN 

= 6 

D2 

IN 

= 13 

E2 

IN 

= 14 

F2 

■ • 

G2 

H2 

J2 

K2 

A3 

B3 

C3 

10 

= 13 

D3 

10 

=14 

E3 

10 

= 13 

Figure 

5.4.3-16 
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F3 

G3 

H3 

J3 

K3 

A4 

84 

C4 

D4  . 

E4  DOC  = 0 

F4  REWIND  IN;  REWIND  10 

G4  READ  (IN,  END*1 00 ) DRAW , TIT , PUT , DT , SYS , VEH , SECT , NSHT , FREV , FNEO , FEOREF 

H4  Performed  by  G4 

jd  BLNK  = ' ' 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

HS 

J5 

K5 


Figure  5.4.3-16 
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399 


A1 

B1  DO  3 I = 1,21 


Cl  Performed  By  B1 


D1  (TIT( I) .EO.BLNK) ; (TIT(I).NE. IT ( 1 ));  (TIT(I+1 ) . EO.BLNK) ; (IT(2) . EO.BLNK) 
• (TIT ( 1+1 ) . EO . IT(2 ) ) 

El 

FI 

G1 

HI 


J1 

K1 

A2 


B2 


C2  ' 

D2  DOC  = DOC  + 1 

E2  WRITE  (IO)DRAW, TIT, PUT, DT, SYS, VEH, SECT, NSHT,FREV,FNEO,FEOREF; 
WRITE  (l.lO)TIT 

F2 


02 


H2 

J2 

K2 

A3 

B3 

C3 

D3 

E3 


WRITE  (1 ,1030)D0C,IT 
(DOC.EQ.O) 

END  FILE  10 

SRCHS$(K$CL0S,'T1 1 ,6, 0,0,0) 
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F3  SRCH$$(K$CLOS, 'TZ' ,6, 0,0,0) 
G3  ( 10 . EQ .13) 

■ H3 
J3 
K3 
A4 
B4 
C4 
04 
E4 
F4 

G4  SRCH$$(K$DELE, 'T2' ,6, 0,0,0) 
H4  (IO.EO.14) 

J4 

K4 

AS 

B5 

C5 

D5 

E5 

F5 

G5 

H5  SRCH$S(K$DELE, ’ T1 ' ,6, 0,0,0) 
js  n =n  + i 
K5 
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A1 


B1  KNT  = 1 

Cl  ILIME  = I LINE  + FNEO  + NSHT  + 3 
D1  (ILINE. LE. 45) 

El 

FI 

G1 

HI 

J1  • 

K1 


A2 

B2 

C2 

02 

IPAGE  = 0 

E2 

ILINE  = 0 

F2 

ILINE  = FNEO  + NSHT  + 3 

G2 

(IPAGE. NE.O) 

H2 

J2 

• 

K2 

A3 

33 

AH  = AMIN/60.0;  IH  = AH 

C3 

IMN  = IH  * 60 

D3.  IMIN  = AMIN;  I DM  = IMIN-IMM 

E3  WRITE  (7,8008)  IH,IDM, (ARRAY (J) ,J  = 1,3) 


Figure  5.4.3-16 
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F3  WRITE  (7,8000) 

G3  ILINE  = I LINE  + 12 
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D5 

E5 

TIMDAT( ARRAY,  15) 

F5 

AMIN=ARRAY(5) 

G5  ’ AH=AMIN/60.0;  IH=AH 
H5  IMM=IH*60 

J5  IMIN=AMIN;  IDM=IMIN-IMM 
K5 
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A1  . 

B1  WRITE(7,8008)IH,IDM,(ARRAY(I) ,1=1 ,3) 

Cl  WRITE (7, 8000) 

D1  WRITE(7 ,349)VEH1 ; WRITE(7 ,351 ) 

El  IPA6E=1 

FI  (EOREV. EQ.'NC') 

G1  WR ITE ( 1 ,310)KNT, EON, EOREV, EDT 

HI  WR ITE (7 ,320 ) KNT , EON , EOREV , EDT , EPTIT 

J1 

K1 

A2 

B2  READ (6 , END=202 ) DRAW, T IT, PTIT ,DT, SYS ,VEH, SECT ,NSHT,FREV ,FNEO,FEOREF 
C2  PERFORMED  BY  B2 

D2  (VEH(1,1).LT.VS(1));  (VEH(2,1).GT.VS(3)) 

E2  . 

F2  WRITE(1 ,310) KNT , EON , EOREV , ERDT 

G2  WRITE(7,320)KNT, EON, EOREV, ERDT, EPTIT 

H2  (EPTIT(l).NE. 1 ') 

02 

K2 

A3 

B3 

C3  WRITE(1 ,201 )KNT,VEH1 

D3  (VEH(1 ,2) .NE. 'S' . AND . VEH ( 1 ,1 ) .EQ.VEH1  (1 ) ) 

E3  PERFORMED  BY  D3 
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F3 

G3 

H3  WRITE ( 1 ,31 1 )EPTIT 
J3  (KNT/21 .EQ.KNT/21 . ) 

K3 

A4 

B4 

C4 

D4  ( VEH ( 1 , 2 ) . EQ. ' S ' .AND . VEH( 1 ,1 ) . LE. VEH1 (1 ) ) 

E4 

F4 

G4 

H4 

J4  IPAGE=0 

K4  PAUS 
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A1 

B1 

Cl 

D1 

El 

FI 

G1 

HI 
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B2 
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D2 
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F2 

G2 

H2 

02 

K2 

A3 

53 

C3 

D3 

E3 


KNT=KNT+1 

ILINE=ILINE+FNE0+NSHT+3 

(ILINE.LE.45) 


I PAG  E=0 
ILINE=0 

ILINE=FENO+NSHT+3 

(IPAGE.NE.O) 


AH=AMIN/ 60.0; IH=AH 
IMM=IH*60 

IMIN=AMIN ; IDM=IMIN-IMM 

WRITE (7 ,8008 ) IH , IDM , (ARRAY ( I ) . 1=1 , 3 ) 
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F3 

WRITE{7,8000) 

G3 

ILINE=ILINE+12 

H3 

TIMDAT(ARRAY,1 5) 

J3 

AMIN=ARRAY(4) 

K3 

A4 

B4 

IL INE= IL INE+I NEO 

C4 

(ILINE.LE.45) 

D4 

• 

E4 

F4 

WRITE ( 7 ,8001  )VEH1 

G4 

HEADER 
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IPAGE=1 
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DMAIN 
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A1 

B1  $INSERT  COMMON;  INTEGERS;  *2 
Cl  IPAGE=0 

D1  ILINE=0 

El  KNT=0 

FI  WRITE(l.l) 

G1  READ ( 1 ,2,ERR=3)ISECT 
HI  WRITE (1,2) ISECT 
J1  * 

K1 

A2 

B2  READ(6,END=200)DRAW,TIT,PTIT,DT, SYS, VEH, SECT, NSHT,FREV,FNEO,FEOREF 

C2  PERFORMED  BY  B2  ' • • • 

D2  DO  1000  1=1,3;  ( I SECT ( I ) . NE . SECT ( I ) ) 

\, 

E2 
F2 
G2 
H2  . 

J2 

K2 

A3 

B3 

C3  WRITE ( 1 ,250)KNT,ISECT 
D3  KNT=KNT+1 

E3  ILINE=ILINE+FNE0+NSHT+3 
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F3  '.(ILINE.LE.45) 

G3 

H3 
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A1 

B1  (IPA6E.NE.0) 

Cl 

D1  • . 

El 

FI 

gi 

HI 

J1 

K1 

A2 

B2  ILINE  = ILINE  + 12 

C2  TIMDAT  (ARRAY,  15) 

D2  AMIN  = ARRAY  (4) 

E2  AH  = AMIN/60. 0;  IH  = AH 

F2  IMM  = IH  * 60  ' ' ' 

G2  IMIN  = AMIN;  IDM  = IMIN  - IMM 

H2  WRITE  (7,8008)  IH,  IDM,  (ARRAY(I) , I = 1,3) 

J2  WRITE  (7,8000) 

K2 

A3 

B3  WRITE  (7,8001)  ISECT 
C3  HEADER 

D3  IPAGE  = 1 
E3  DMA IN 
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F3  ILINE  = ILINE  + INEO 
G3  (ILINE. LE. 45) 

H3 

J3 
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D4 
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G4  IPAGE  = 0 
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J4 
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A1 

B1  $INSERT  COMMON;  $INSERT  SYSCOM>  KEYS.F;  INTEGER  *.2 
Cl  IPAGE  =0 

D1  ILINE  =0 

El  KNT  = 0 

FI  SRCH$$(K$RDWR  + K$NDAM , ' T3 ' ,6,6,1 
G1  WRITE  (1,1) 

HI  READ  (1,2, ERR  = 3)IC0DE 

J1  WRITE  (1 ,2) ICODE 
Kl 
A2 

B2  READ  (6,END=200)DRAW,TIT,PTTT,DT,SYS,VEH,SECT,NSHT,FREV,FNEO,FEOREF 
C2  Performed  by  B2 
D2  REWIND  10 

E2  WRITE  (10,5)  DRAW  (1) 

F2  REWIND  10 

G2  READ  (10,2)  COD  • 

H2  ( IC0DE(1 ) . EQ. 1 23 1 ) 

J2  DO  20  I = 1,2;  (ICODE(I).NE.COD(I)) 

K2 

A3 

B3 

C3  WRITE  (1 ,250)  KNT 
D3  SRCH$$(K$CL0S,,T3' ,6,0,0,0)' 

E3  SRCH$$(K$DELE,'T3’ ,6, 0,0,0) 
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F3  .• 

63 

H3  ( ICODE ( 1 ) . NE . COD ( 1 )) 

J3  . 

K3 

A4 

B4  KNT  = KNT  + 1 

C4  ILINE  = ILINE  + FNEO  + NSHT  + 3 
D4  (ILINE. LE. 45) 

E4 

F4 

G4 

H4 

J4 
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E5  ILINE  = 0 

F5  ILINE  = ILINE  + NSHT  + 3 
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H5 
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A1 

B1  ( I PAGE « NE . 0 ) 

Cl 

01 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2  JUNE  = ILINE  + 12 
C2  TIMDAT  (ARRAY, 15) 

D2  AMIN  = ARRAY  (4) 

E2  AH  = AMIN/60.0;  IH  = AH 

F2  IMM  = IH  * 60 

G2  IMIN  = AMIN;  I DM  = IMIN  - IMM 

H2  WRITE  (7,8008)  IH,IDM,  {ARRAY(I),I  = 1,3) 

J2  WRITE  (7,8000) 

K2 

A3 

B3  WRITE  (7,8001)  ICODE 
C3  HEADER 
03  IPAGE  = 1 
E3  DMA IN 
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F3  ILINE  = I LINE  + INEO 
G3  (ILINE-.LE.45) 

H3 

J3 

K3 

A4 

84 
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D4 

E4 
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G4  I PAGE  = 0 

H4 

J4 
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A1 

B1  $ INSERT  COMMON;  INTEGER  * 4;  * 2 

Cl  IPAGE  =0 

D1  ILINE  = 0 

El  KNT  = 0 

FI  KNTT  = 0 

G1  CLEAR 

HI  WRITE  (1,2) 

J1 

Kl 

A2 

B2  (IOPT.EQ. ' EO 1 ) 

C2  (IOPT.NE. ’ DR 1 ) 

D2 

E2 

F2 

G2 

H2  READ  (1,3, ERR  = 1)  IEON 

J2 

K2 

A3 

B3  READ  (18, END  = 350)  EON,ETIT,EPTIT,EOREV,EDT,ERDT,EOVEH 
C3  Performed  by  B3 

D3  DO  266  I = 1,2;  (IEON(I) .NE.EON(I)) 

E3 
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F3 
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H3 
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H4 


WRITE  0,105} 

READ  (1 ,110, ERR  = 99}  I0PT 


WRITE  (1  , 360 ) I EON 
KNT  = KNT  + 1 
(IPAGE.NE.O) 


J4 


K4 

AS 

B5 

C5 

D5 


E5  TIMDAT  {ARRAY  ,15) 
F5  AMIN  + ARRAY  (4) 
G5  AH  = AMIN/60.0 


H5  IH  = AH 
J5  IMM  = IH  * 60 

K5 
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A1 

B1  IMIN  = AMIN;  I DM  = IMIN  - IMM 
Cl  WRITE  ( 7 , 1 000 ) I H , I DM , ( ARRAY ( I ) , I = 1,3) 

D1  WRITE  (7,300) 

El  IPAGE  =1 

FI  (EOREV.EQ. ' NC 1 ) 

G1  WRITE  (1 , 1 40) KNT, EON, EOREV, EDT( ( EOVEH (I,J)J=1 ,2)  ,1  = 1,2) 

HI  WRITE  (7,230)KNT,E0N,E0REV,EDT,EPTIT 

J1 

K1 

A2 

B2  FIRST  =0 

C2  SECOND  =0 

D2  INEO  = 0 

E2 

F2  WRITE  (1,140) KNT , EON , EOREV , ERDT , ( ( EOV EH ( I , J ) , J = 1,2), I = 1,2) 

G2  WRITE  (7, 230)KNT, EON, EOREV, ERDT, EPTIT 
H2  (EPTIT(l).NE. ' ') 

J2 

K2 

A3 

B3  READ  (6,END=100)DRAW,TIT,PTIT,DT,SYS ,VEH ,SECT,NSHT,FREV ,FNEO,FEOREF 
C3  Performed  By  B3  - . 

D3  DO  2000  1=1,6;  ( I EON ( 1 ) . NE . FEOREF (1,1));  ( I EON ( 2 ) . EQ . FEOREF (1,2)) 

E3 
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F3 

G3 

H3  WRITE  (1 , 1 30) EPTIT 
J3  (KNT/21 . EQ, KNT/21 . ) 

K3 
A4 
B4  , 

C4  WRITE  ( 1 , 200 ) KNT  s KNTT , I EON 
D4  KNT  = KNT  + 1 
E4  KNTT  = KNTT  + 1 
F4  I LINE  = ILINE  + FNEO  + 4 
G4  (ILINE. LE. 45} 

H4 

J4  IPAGE  =0 
K4  PAUS 
A5 


B5 

C5 

D5 

E5 

F5 

G5  IPAGE  = 0 

H5  ILINE  = 0 

J5 

K5 
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A1 

B1  (IPAGE.NE.O) 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K! 

A2 

B2  ILINE  = I LINE  + 12 
C2  TIMDAT  (ARRAY,  15) 

D2  AMIN  = ARRAY  (4) 

E2  AH  = AMIN/60.0;  IH  = AH 
F2  I MM  = IH  * 60 

G2  IMIN  = AMIN;  I DM  = IMIN  - IMM 
H2  WRITE  (7,8008)IH,IDM,(ARRAY(I),I  = 1,3) 

J2  WRITE  (7,8000) 

K2 

A3 

B3  WRITE  (7,8001  ) I EON 
C3  HEADER 
D3  IPAGE  =1 
E3  FIRST  = 1 
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F3  MAIND 
G3  (NSHT.GT.l ) 

H3  FIRST  = 0 

J3 

K3 

A4 

B4  READ  (12, END  = 1001 )DRW,SHTN, REV, NE0,E0REF 

C4  Performed  by  B4 

04  DO  25  K = 1,4;,  (DRW(K) .NE.DRAW(K) ) 

E4 

F4 

G4  DO  150  J = 2,NSHT 
H4  Performed  by  G4 
J4 
K4  ' 

A5 

B5 

C5  WRITE  (1,1002) 

D5 

E5 

F5 

G5 

K5  FIRST  = 0;  SECOND  =0;  INEO  = 0 

J5 

K5 
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A1 

B1  DO  25001  = 1 ,6;  ( I EOM ( 1 ).NE.E0REF(I,1 ));  ( I EON ( 2 ) . EQ - EOREF (1,2))  ' 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

Kl 

A2 

82  SECOND  = 1 

C2  (FIRST. EQ. 0) 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3  KNT  = :<NT  +1 
D3  KNTT  = KNTT  +1 
E3  ILINE  = ILINE  + NEO  + 4 
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F3  (I'LINE.LE.45) 

G3 

H3 

J3 

K3 

A4 

B4  AMIN  = ARRAY  (4)- 

C4  AH  = AMIN/60.0;  IH  = AH 

D4  IMM  = IH  * 60 

E4  IMIN  = AMIN;  I DM  = IMIN  - IMM 

F4  IPAGE  = 0 

G4  ILINE  = 0 

H4  . (IPAGE. NE.O) 

J4 

K4 

A5 

B5  IPAGE  = 1 
C5  MAIND 
D5 

E5  WRITE  (7 ,8008}IH, IDM, (ARRAY ( I ) , I = 1,3) 

F5  WRITE  (7,8000) 

35  WRITE  (7,8001 )IE0N 
H5  ILINE  = ILINE  +12 
J5  TIMDAT  (ARRAY, 15) 

K5 
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A1 

# 

B1  SINSERT  SYSCOM>KEYS.F;  INTEGER*2 

Cl  BREAKS  (.TRUE.) 

D1  TIMDAT(ARRAY,15) 

El  SRCH$$ ( K$NDAM+K$RDWR , ' TUSER 1 ,5,16,1,10) 

FI  SRCH$$(K$NDAM+K$RDWR, 'USER' ,4,15,1  ,IC) 

G1  AMIN=ARRAY(4) ; AH=AMIN/60.0;  IH=AH 

HI  IMM=IH*60;  IMIM=AMIN;  IDM=IMIN-IMM 

J1  WRITE (20,1 ) (ARRAY ( I ) ,1=13,15) ,IH,IDM,ARRAY (5) , 

(ARRAY (I ) ,1=1 ,3) ,ARRAY(12) 

K1 

A2 

B2  READ(1 9,2 ,END=50 ) ( ARRAY ( I ) ,1=13,1 5) 

(ARRAY (I ) ,1=1 ,3) ,ARRAY(12) 

C2  see  B2 

D2 

E2 

F2 

G2 

H2 

J2 

K2 

A3 

B3 

C3  SRCH$$(K$CL0S, 'USER' ,4,0,0,0);  SRCH$$(K$CL0S, 'TUSER' ,5, 0,0,0); 

D3  SRCH$S(K$DELE, 'USER' ,4, 0,0,0) 

E3  CNAMSS ( ' TUSER ' , 5 , 1 USER ' ,4 , 1 C ) 
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F3  BREAKS (.FALSE.) 
G3 
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J3 

K3 

A4 

B4 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 


Figure  5. 4. 4-1 


- 481  - 


Page  (3  of  3) 


31  $INSERT  COMMON;  COMMON/X/PEDL;  INTEGER*2;  *4 
Cl  RDCOM(BUF) 

D1  DO  51=1,76;  BUFF(I)=BUF(I) 

El  ' BLNK= 1 ’;  DO! 1=1 ,21 ; TIL ( I ) =BLNK 

FI  GETWRD(BUF, ARRAY, LEN) 

G1  TI L ( I )=ARRAY(1 ) ;TIL(I+1 )=ARRAY (2) ; TIL(I+2)=ARRAY(3) ; 

TIL(I+3)=TIL=ARRAY(4) 

HI  1=1+2;  PEDL=1 

J1  DO  200  1=1,19;  PTIT(I)=BLNK 

K1 

A2 

B2  GETWD(BUFF,PTIT) 

C2 

D2 

E2 

F2 
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J2 
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A1 


B1 

COMMON/X/PEDL ; INTEGER 

Cl 

PEDL=1 ; N=1 

D1 

Cl  I N (CHAR ) 

El 

BUF(N)=CHAR 

FI 

(CHAR.EQ.ANL) 

G1 

(CHAR.EQ.AKILL) 

HI 

(CHAR.EQ.AERASE) 

J1 

N=N+1 
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A2 
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D2 

E2 

F2 

G2 

H2 

(N.LE.2) 
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E3 

Figure  5. 4. 4-3  Page  (2  of  3) 


- 485  - 


F3 

G3 

H3 

J3 

K3 

A4 

B4  I LF= : 21 2 

C4  TIOU(ILF) 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5  - 
K5 


'Figure  5. 4. 4-3 


- 486  - 


Page  (3  of  3) 


A1 

• 

B1 

COMMON/ X/P EDI;  INTEGER  ' 

Cl 

DO  140  1 = 1,3;  NAME ( I )=ASPSP ; N=1  ' 

D1 

(BUF(l).NE.ASP) 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2 

D2 

DO  999  1=2,77;  11=1-1  ; 5UF ; 1 1 )=BUF( I ) 

E2 

CHAR=BUF(PEDL) 

F2 

PEDL=PEDL+1 

G2 

* (PEDL.GT.77) 

H2 

( CIJAR . EQ . ASP . OR . CHAR . EQ . ACOMMA . OR . CHAR . EQ . ASCOL ) 

AS  , - 

J2 

* 

K2 

A3 

53 

(N.GT.LEN) 

* 

C3 

I=(N+1 )/2 

D3 

J=N-2*(N/2) 

- 

P r 

N=N+1 

Figure  5. 4. 4-4 
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F3 


G3 

H3  PEDL=77 

J3 

K3 

A4 

B4 

C4 

D4 

E4  (J.EQ.l) 

F4  NAME { I }=LT ( NAME ( I } , 8)+CHAR 

G4 

H4 

J4 

K4 

A5 

B5 

CE 

D5 

E5  NAME ( I ) =RT ( NAME ( I ) ,8)+LS{CHAR,8) 


5. 4. 4-4 
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INCREMENT 
TO  NEXT 
CHAR. 


A1 

B1 

Cl 

D1 

El 

FI 

G1 

HI 

J1 

K1 

A2 

32 

C2 

32 

12 

F2 


Ud 


Hi 


K2 


CHAR=BUF(PEDL) 

(CHAR.EQ.ANL) 

CHAR . NE . ASP .AND . CHAR . NE . ACOMMA . AND . CHAR . NE . ASCOL ) 


PEDL=PEDL+1 


i-^aure 


5. 4. 4-4 


Page 


of  5) 
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j INCREMENT  1 

INDEX  70  | 

NEXT  f 

r CHAR.  j 

A1 


El  COMMON/X/PEDL;  INTEGER 

Cl  DO  TOO  1=1,19;  NAME(I)=ASPSP;  N=1 

D1  (BUFF ( 1 ) .NE.ASP) 

El 

FI 

G1 

HI 

J1 

K1 

A2 

B2 

C2  ' 

D2  DO  999  1=2,77;  11=1-1;  BUFF ( I I )=BUFF ( I ) 

E2  CHAR=BUFF(PEDL) 

F2  PEDL=PEDL+1 

G2  IPEDL.GT.77) 

H2  (CHAR.EQ.ANL) 

02  I=(N+l)/2 

K2 

AS 

52  J=N-2*(N/2) 

c-  N=N+1 

D3  (J.EQ.l ) 

E3  NAME (I )=LT(NAME( I ) ,8)+CHAR 

Figure  5. A. 4-5  Page  (2  of  3) 
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F3 


G3 

H3  PEDL=77 

J3 

K3 

A4 

B4 

C4 

D4  NAME (I )=RT( NAME ( I ) ,8  j+LS ( CHAR ,8) 

E4 

F4  - 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 

E5 

F5 

G5 

H5 

J5 

K5 
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Figure 


5. 4. 4-5 


A1 

B1  SINSERT  COMMON;  $ INSERT  SYSCOM>KEYS .F 

Cl  SRCHSS  (KSRDWR+KSNDAM.'CTAB* ,6,14,  IT,IC) 

D1  REWIND  18 

El  READ(18,655,END=690)WA,C0N 

FI  see  El 

Gl'  (WAN(l).EQ. '33' .AND.WAN(2) . EQ . ' 02 ' ) 

HI  (WAN(1 ) .EQ. '38' ,AND.WAN(2).EQ. '04' .0R.WAN(2) . EQ. '09' ) 
jT  (WAN (1 ) ,NE.WAN(1 ) ) ; (WAN ( 2 ) ,NE.WA(2) ) 

K1 

A2 

B2  DO  665  1=1,4;  (WAN(I).NE.WA(I)) 

C2 

D2 

E2 

F2  C0N(1)='WA  W ; C0N(2)='0T  F1 ; C0N(3)= ' OUND ' ; C0N(4)= ' SEE 1 ; 

CON (5)  = ' RJ  K 1 
G2 

H2 

J2  SRCHS$( KSCLOS , 1 CTAB ' ,6, 0,0,0) 

\2 

^ 

n w' 

33  fWAN(l).NE.WA(l));(WAN(2).NE.WA(2)) 

rt 

v w 

D2 


r 


4.4-6 
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F3 


G3 

H3  . 

J3 

K3 

A4 

B4  (WAN(3).NE.,AB').AND.WAN(3).NE.,BA');(WAN(3).EQ. ' AB ' .AND.WA(3) .EQ.  'A'); 

(WAN(3).EQ. 'BA' .AND  WA ( 3 ) . EQ . ' B ' ) 

C4 

D4 

E4 

F4 

G4 

H4 

J4 

K4 

A5 

B5 

C5 

D5 


H5 

J5 


Figure  5. 4. 4-6 
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A1 


B1 

Cl 

D1 

El 

FI 

61 

HI 

J1 

Kl 

A2 

B2 

C2 

D2 

E2 

F2 

62 

H2 

J2 

K2 

A3 

B3 

C3 

03 


INTE6ER*2 
BREAKS  (.TRUE.) 

TIMDAT  ( I A , 1 5 ) 

CLEAR 

( I A ( 1 3 ) .NE. ' SY * ) ; ( I A ( 1 4 ) . NE . ' ST ' ) ; (IA(15).NE. 'EM'  ) 
COMISS  ('LOUSER' ,6,12,1c) 


BREAKS (.FALSE.) 
I AI= I A (13) 


to 


Figure  5. 4. 4-7 
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6.0  DATA  BASE  DESIGN 

6.1  FILE  STRUCTURE 

6.1.1  DATA  SUBFILES 

6. 1.1.1  MAIL  CORRESPONDENCE  DATA 

The  Mail  Correspondence  portion  of  the  Mail  Log  data  base  is  further 
subdivided  into  six  (6)  subfiles  representing  the  six  (6)  types  of  documents. 
There  also  exists  a seventh  data  file  used  for  storage  of  special  action  due 
date  items.  This  file  provides  fast  and  efficient  access  to  data  during  the 
ACTION  DUE  DATE  SEARCH,  see  Section  4.1.22,  which  is  otherwise  scattered  through 
out  the  six  (6)  data  subfiles  listed  below: 


NAME 

DESCRIPTION 

FUNIT 

PUNIT 

TRAN 

TRANSMITTALS  and  SPECIFICATIONS 

6 

2 

ACTD 

ACTION  DUE  DATE 

9 

5 

MEMO 

MEMO'S  and  LETTERS 

11 

7 

TWFX 

TWX's,  MAGNAFAX's  and  RAP I FAX's 

12 

8 

ANN 

ANNOUNCEMENTS 

13 

9 

PR 

PURCHASE  REQUESTS 

14 

10 

MIS 

MISCELLANEOUS  DOCUMENTS  and  REPORTS 

15 

11 

6. 1.1. 2 

DESIGN  INFORMATION  RELEASE/REPORT  DATA 

The  Design  Information  portion  of  the  Mail 

Log  data  base 

consists  of 

one  (1) 

subfile. 

NAME 

DESCRIPTION 

FUNIT 

PUNIT 

DIR 

DIR's  and  REPORT'S 

6 

2 

6.1. 1.3 

DRAWING/ENGINEERING  ORDER  DATA 

The  Drawing  portion  of  the  Mail  Log  data  base  is  further  subdivided 
into  three  (3)  subfiles: 
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NAME 

DESCRIPTION 

FUN  IT 

PUN  IT 

DRAW 

DRAWING 

6 

2 

SHEET 

SHEET 

12 

8 

EO 

ENGINEERING  ORDERS  (E.O. ' s) 

18 

14 

The  DRAWING  subfile  contains  all  sheet  one  (1)  information  pertaining 


to  a specific  drawing.  If  the  drawing  has  more  than  one  (1)  sheet,  additional 
information  pertaining  to  each  following  sheet  is  contained  in  the  SHEET 
subfile.  Therefore,  the  DRAWING  and  SHEET  subfiles  together  form  all  drawing 
data  contained  within  the  data  base.  The  E.O.  subfile  contains  pertinent 
information  related  to  all  Engineering  Orders. 


6.1.2  STORAGE  FILES 
6. 1.2.1  MAIL  CORRESPONDENCE 

All  archived  document  records  are  stored  in  one  (1)  of  two  (2)  inactive 
files  called  INACTS  or  INACTL.  Transmittal  data  records  which  are  actively 
stored  in  the  TRAN  subfile  (see  Section  6. 1.1.1),  will  be  archived  to  INACTL. 

Any  data  records  which  are  actively  stored  in  any  of  the  other  five  (5)  subfiles 
will  be  archived  to  INACTS.  These  data  records  do  not  contain  the  sixteenth 
data  item,  DESCRIPTION,  which  is  found  only  in  the  TRANSMITTAL  subfile. 

Another  storage  file,  called  USER,  is  used  to  record  the  user  ID, 
time,  date,  and  terminal  location  number  for  each  entry. 


NAME 

DESCRIPTION 

FUNIT 

PUNIT 

INACTL 

INACTIVE  FILE  (LONG  RECORDS) 

9 

5 

INACTS 

INACTIVE  FILE  (SHORT  RECORDS) 

9 

5 

USER 

USER  LOG 

19 

15 

6.1 .2.2 

DESIGN  INFORMATION  RELEASE/REPORT 

All  DIR/REPORT  data  records  are  stored  in 

an  inactive 

file  called 

INACT  when 

archived. 

Another  storage  file,  called  USER,  is  used 

to  record 

the  user  ID, 

time,  date 

i , and  terminal  location  number  for  each  entry. 

NAME 

DESCRIPTION 

FUNIT 

PUNIT 

INACT 

inactive  File 

9 

5 

USER 

USER  LOG 

19 

15 

6. 1.2. 3 

DRAWING/ENGINEERING  ORDER 

Each  of  the  three  (3)  data  subfiles  described  in  Section  6. 1.1. 3 has 
a corresponding  inactive  file  for  archive  purposes.  The  DRAW  subfile  data 


- 502  - 


records  are  archived  to  INACTD.  The  SHEET  subfile  data  records  are  archived  to 
INACTS.  Finally,  the  EO  subfile  data  is  archived  to  INACTE. 

Another  storage  file,  called  USER,  is  used  to  record  the  user  ID, 
time,  date,  and  terminal  location  number  for  each  entry. 


NAME 

DESCRIPTION 

FUN  IT 

PUNIT 

INACTD 

INACTIVE  FILE  (DRAW) 

9 

5 

INACTS 

INACTIVE  FILE  (SHEET) 

11 

7 

INACTE 

INACTIVE  FILE  (EO) 

17 

13 

USER 

USER  LOG 

19 

15 
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6.1.3  TEMPORARY  WORKING  STORES 
6. 1.3.1  MAIL  CORRESPONDENCE 

The  CORRESPONDENCE  program  uses  several  temporary  working  storage 
files  for  outputting,  rebuilding,  restructuring,  or  sorting  various  subfile 
data  records. 


NAME 

DESCRIPTION 

FUNIT 

PUNIT 

OUT 

OUTPUT  FILE 

7 

3 

REVS 

REVISION  DATA  FILE 

8 

4 

DATE 

CURRENT  DATE  & DAILY 
DOCUMENT  COUNTER 

10 

6 

IM 

DAILY  INCOMING  MAIL 

16 

12 

OM 

DAILY  OUTGOING  MAIL 

17 

13 

VC 

DAILY  VOUGHT  CORRESPONDENCE 

18 

14 

T1 

SUBJECT  SEARCH  FOUND  FILE 

19 

15- 

T2 

SUBJECT  SEARCH  FOUND  FILE 

20 

16 

6. 1.3. 2 

DESIGN  INFORMATION  RELEASE/REPORT 

The  DIR/REPORT  program  uses  several 

temporary  working  storage  files 

for  outputting  and  rebuilding  data  records. 

NAME 

DESCRIPTION 

FUNIT 

PUNIT 

OUT 

OUTPUT  FILE 

7 

3 

REVS 

REVISION  DATA  FILE 

8 

4 

TEMP 

REBUILDING  DATA  FILE 

10 

6 

T1 

TITLE  SEARCH  FOUND  FILE 

11 

7 

T2 

TITLE  SEARCH  FOUND  FILE 

12 

8 

6. 1.3. 3 

DRAWING/ENGINEERING  ORDER 

The  DRAWING/EO  program  uses  several  temporary  working  storage  files 
for  outputting  and  rebuilding  data  records. 
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NAME 

DESCRIPTION 

OUT 

OUTPUT  FILE 

REVS 

REVISION'DATA  FILE 

TEMP 

DRAW  REBUILDING  DATA  FILE 

ETEMP 

EO  REBUILDING  DATA  FILE 

T1 

TITLE  SEARCH  FOUND  FILE 

STEMP 

SHEET  REBUILDING  DATA  FILE 

12 

TITLE  SEARCH  FOUND  FILE 

6.2 


DATA  RECORDS 


This  Section  provides  a description  of  each  data  record  for  all 
three  (3)  main  MAIL  LOG  subfiles.  A table  of  searchable  data  items  is  given 
along  with  the  items  formatted  for  output  during  the  SEARCH  MODE. 

6.2.1  MAIL  CORRESPONDENCE 

The  Correspondence  data  record  for  each  document  consists  of  up  to 
sixteen  (16)  data  items,  as  shown  in  Figure  6. 2. 1.1.  All  but  the  DAILY  COUNTER 
are  input  manually  by  the  operator.  The  INPUT  DATE  and  DAILY  COUNTER  are 
assigned  automatically  by  the  computer  software.  The  CONTRACT  NUMBER  may  also 
be  assigned  by  using  the  WA/ID  CODE  - CONTRACT  TABLE,  CTAB,  described  in 
Section  6.4.2.  There  are  two  (2)  subjects  stored  in  each  data  record:  SUB,  as 

indicated  in  Figure  6. 2. 1.1,  is  the  searchable  subject;  PTIT,  not  shown  in 
Figure  6.2.1 .1,  represents  a complete  subject  which  is  used  for  output  purposes. 
During  the  SEARCH  MODE  eleven  (11)  of  these  sixteen  (16)  data  items  are 
searchable  with  up  to  eight  (8)  data  items  being  formatted  for  output.  See 
Figures  6. 2. 1.2  and  6.2. 1.3. 

6.2.2  DESIGN  INFORMATION  RELEASE/REPORT 

The  DIR/REPORT  data  record  for  each  document  consists  of  up  to  nine 
(9)  data  items  as  shown  in  Figure  6. 2.2.1.  The  CONTRACT  NUMBER  is  assigned 
automatically  by  the  WA/ID  CODE  - CONTRACT  TABLE,  CTAB,  described  in 
Section  6.4.2.  The  CONTRACT  NUMBER  is  therefore  never  actually  saved  within 
the  data  record.  There  are  two  (2)  titles  stored  in  each  data  record:  TIT, 

as  indicated  in  Figure  6. 2. 2.1,  is  the  searchable  title; . PTIT,  not  shown  in 
Figure  6. 2. 2.1,  represents  a complete  title  which  is  used  for  output  purposes. 

During  the  SEARCH  MODE  eight  (8)  of  nine  (9)  data  items  are  searchable 
with  the  entire  data  record  being  formatted  for  output.  See  Figure  6. 2.2.2. 

6.2.3  DRAWING/ENGINEERING  ORDER 

All  drawings  are  divided  into  two  (2)  subfiles:  DRAW  and  SHEET. 

DRAW  contains  all  first  sheet  data  and  items  indicating  any  further  sheets  and 
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E.O.'s  referenced.  Each  data  record  in  this  subfile  contains  up  to  ten  (10) 
data  items,  as  shown  in  Figure  6. 2. 3.1.  There  are  two  (2)  titles  stored  in 
each  data  record:  TIT,  as  indicated  in  Figure  6.2.3. 1 , is  the  searchable  title; 
and  PTIT  represents  the  complete  title  which  is.  used  for  output  purposes. 

If  a drawing  has  more  than  one  (1)  sheet,  each  subsequent  sheet  forms 
a data  record  in  the  SHEET  subfile.  Each  data  record  in  this  subfile  contains 
up  to  five  (5)  data  items  as  shown  in  Figure  6. 2. 3.1. 

During  the  SEARCH  MODE,  the  DRAWING  subfiles  contain  eight  (8)  searchable 
data  items  with  up  to  eight  (8)  data  items  being  formatted  for  output.  There 
also  exists  a ninth  searchable  data  item,  VENDOR  CODE,  which  is  actually  a partial 
search  on  the  DRAWING  NUMBER  data  item.  See  Figure  6. 2. 3. 2. 

Engineering  Order  data  records  consist  of  up  to  six  (6)  data  items,  as 
shown  in  Figure  6. 2. 3. 3.  Each  EO  data  record  contains  two  (2)  titles:  ETIT,  as 

indicated  in  Figure  6 . 2 . 3 . 3,  is  the  searchable  title;  and  EPTIT  represents  the 
complete  title  which  is  used  for  output  purposes. 

During  the  SEARCH  MODE  only  two  (2)  of  the  data  items  are  searchable 
with  up  to  all  six  (6)  items  being  formatted  for  output.  See  Figure  6. 2. 3. 4. 

Special  information  pertaining  to  the  SEARCH  MODE  for' all  three  (3) 
subfiles  is  given  in  Figure  6. 2. 3. 5. 
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CORRESPONDENCE 


RECORD  DESCRIPTION 

ITEM 

NO. 

DESCRIPTION 

VARIABLE 

SIZE 

TYPE 

1 

MAIL  STATUS 

MS 

2 characters 

ALPHA 

2 

AUTHOR/SOURCE 

ATHR 

28  characters 

ALPHA 

3 

DOCUMENT  DATE 

DD 

6 characters  - MMDDYY 

NUMERIC 

4 

TO/ADDRESSEE 

TO 

32  characters 

ALPHA 

5 

DOCUMENT  LETTER  NUMBER 

DLN 

18  characters 

ALPHA 

6 

SUBJECT 

SUB 

10  characters/word  - 7 words 

ALPHA 

7 

ROUTING 

ROUT 

3 characters  - 6 entries 

ALPHA 

8 

INPUT  DATE 

IDD 

6 characters  - MMDDYY 

NUMERIC 

9 

DAILY  COUNTER 

COUNT 

4 characters 

NUMERIC 

10 

WA  NUMBER/ ID  CODE 

WA 

8 characters 

ALPHA 

11 

CONTRACT  NUMBER 

CONT 

20  characters 

ALPHA 

12 

ACTION  DUE  DATE 

ADD 

■6  characters  - MMDDYY 

NUMERIC 

13 

REFERENCED  DOCUMENTS 

TWX 

18  characters  - 6 entries 

ALPHA 

14 

FILE  SYSTEM  CODE 

FSC 

10  characters  - 2 entries 

ALPHA 

15 

RESPONSIBLE  ENGINEER 

NRE 

3 characters  - 3 entries 

ALPHA 

16 

* DESCRIPTION 

DDT 

10  characters/word  - 7 words 

- 30  entries 

ALPHA 

* ONLY  USED  IN  TRANSMITTAL  SUBFILE 

FIGURE  6. 2. 1.1 
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CORRESPONDENCE 


SEARCHABLE  DATA  ITEMS 

> 

ITEM 

NO. 

DESCRIPTION 

SEARCHABLE 

OUTPUT 

1 

MAIL  STATUS 

* 

2 

AUTHOR/SOURCE 

* 

3 

DOCUMENT  DATE 

* 

4 

TO/ADDRESSEE 

* 

5 

DOCUMENT  LETTER  NUMBER 

* 

* 

6 

SUBJECT 

* 

★ 

7 

ROUTING 

8 

INPUT  DATE 

* 

* 

9 

DAILY  COUNTER 

★ 

10 

W.A.  NUMBER/ID  CODE 

* 

11 

CONTRACT  NUMBER 

* 

12 

ACTION  DUE  DATE 

* 

** 

13 

REFERENCED  DOCUMENTS 

14 

FILE  SYSTEM  CODE 

★ 

15 

RESPONSIBLE  ENGINEER 

★ 

** 

16  ****  DESCRIPTION 

* OUTPUT  IN  ALL  SEARCHES 

**  ONLY  OUTPUT  DURING  AN  ACTION  DUE  SEARCH 
***  OUTPUT  IN  ALL  BUT  AN  ACTION  DUE  OR  ALL  SEARCH 
****  ONLY  USED  IN  TRANSMITTAL  SUBFILE 

FIGURE  6. 2. 1.2 
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CORRESPONDENCE 


SEARCHES 


DESCRIPTION 

SUBFILE  SELECTION 

TIME  FRAME 

MAIL  STATUS 

ANY  6 

ANY 

AUTHOR 

ANY  6 

ANY 

DOCUMENT  DATE 

ANY  6 

DAY/MONTH/YEAR 

TO 

ANY  6 

ANY 

DOCUMENT  LETTER  NUMBER 

ANY  6 

ANY 

SUBJECT 

ANY  6 

ANY 

INPUT  DATE 

ANY  6 

DAY/MONTH/YEAR 

W. A.  NUMBER/ID  CODE 

ANY  6 

ANY 

CONTRACT  NUMBER 

ANY  6 

ANY 

ACTION  DUE 

ALL  6 

NONE 

RESPONSIBLE  ENGINEER 

ANY  6 

ANY 

ALL 

ANY  6 

ANY 

FIGURE  6. 2. 1.3 
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DIR/ REPORT 


RECORD  DESCRIPTION 


ITEM 


NO. 

DESCRIPTION 

VARIABLE 

SIZE 

TYPE 

1 

TITLE 

. TIT 

10  characters/word  - 7 words 

ALPHA 

2 

DIR/REPORT  NUMBER 

DIR 

14  characters 

ALPHA 

3 

DATE 

DT 

6 characters  - 

MMDDYY 

NUMERIC 

4 

SYSTEM 

SYS 

4 characters  - 

3 entries 

ALPHA 

5 

VEHICLE 

VEH. 

4 characters  - 

2 entri es 

ALPHA 

6 

W.A.  NUMBER/ID  CODE 

WAN 

8 characters 

ALPHA 

7 * 

CONTRACT  NUMBER 

CONT 

20  characters 

ALPHA 

8 

REVISION 

. REV 

2 characters 

ALPHA 

9 

REVISION  DATE 

RDAT 

6 characters  - 

MMDDYY 

NUMERIC 

* NOT  STORED  IN  DATA  BASE  SUBFILE 
CONTAINED  IN  WA/CONTRACT  TABLE 


FIGURE  6. 2. 2.1 
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DIR/ REPORT 


SEARCHABLE  DATA  ITEMS 


ITEM 

NO.  DESCRIPTION  SEARCHABLE  OUTPUT 


1 TITLE 

2 DIR/ REPORT  NUMBER 

3 DATE 

4 SYSTEM 

5 VEHICLE 

6 W.A.  NUMBER/ID  CODE 

7 ***  CONTRACT  NUMBER 

8 REVISION 

9 REVISION  DATE 


* * 

* * 

* * 

* * 

* * 

* * 

* * 

* 

**  * 


**  INCLUDED  WITHIN  THE  DATE  SEARCH 
***  NOT  STORED  IN  DATA  BASE  SUBFILE 
CONTAINED  IN  W.A. /CONTRACT  TABLE 


FIGURE  6. 2. 2. 2 
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DRAWING  RECORD  DESCRIPTION 


ITEM 

NO. 

DRAW  SUBFILE 
DESCRIPTION 

VARIABLE 

SIZE 

TYPE 

1 

TITLE 

TIT 

10 

characters/word  - 7 words 

ALPHA 

2 

DRAWING  NUMBER 

DRAW 

14 

characters 

ALPHA 

* VENDOR  CODE 

3 

characters 

ALPHA 

3 

DATE 

DT 

6 

characters  - MMDDYY 

NUMERIC 

4 

**SYSTEM 

SYS 

4 

characters  - 3 entries 

ALPHA 

5 

VEHICLE 

VEH 

4 

characters  - 2 entries 

ALPHA 

6 

**SECTION 

SECT 

12 

characters 

ALPHA 

7 

NUMBER  OF  SHEETS 

NSHT 

2 

characters 

NUMERIC 

8 

SHEET  REVISION 

FREV 

2 

characters 

ALPHA 

9 

NUMBER  OF  E.O.'s 

FNEO 

2 

characters 

NUMERIC 

10 

E.O.'s  REFERENCED 

FEOREF 

8 

characters'  - 10  entries 

ALPHA 

ITEM 

NO. 

SHEET  SUBFILE 
DESCRIPTION 

VARIABLE 

SIZE 

TYPE 

1 

DRAWING  NUMBER 

DRW 

14  characters 

ALPHA 

2 

SHEET  NUMBER 

SHTN 

2 

characters  - 2 entries 

NUMERIC 

3 

REVISION 

REV 

2 

characters 

ALPHA 

4 

NUMBER  OF  E.O.'s 

NEO 

2 

characters 

NUMERIC 

5 

E.O.'s  REFERENCED 

EOREF 

8 

characters  - 10  entries 

ALPHA 

* CONTAINED  WITHIN  DRAWING  NUMBER 
**NOT  CONTAINED  IN  DALLAS  DATA 

FIGURE  6.2. 3.1 
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SEARCHABLE  DRAWING  DATA  ITEMS 

ITEM 


NO. 

DRAWING  SUBFILE 

SEARCHABLE 

OUTPUT 

1 

TITLE 

* 

* 

2 

DRAWING  NUMBER 

* 

* 

VENDOR  CODE 

* 

3 

DATE 

* 

* 

4 

SYSTEM 

★ 

5 

VEHICLE 

★ 

6 

SECTION 

★ 

7 

NUMBER  OF  SHEETS 

8 

SHEET  REVISION 

★ 

9 

NUMBER  OF  E.O.’s 

** 

10 

E.O.’s  REFERENCED 

* 

★ 

SHEET  SUBFILE 

1 

DRAWING  NUMBER 

2 

SHEET  NUMBER 

* 

3 

REVISION 

* 

4 

NUMBER  OF  E.O.'s 

5 

E;0.'s  REFERENCED 

★ 

**  NUMBER  OF  E.O.'s  CHECKED  WHEN  PERFORMING  A REVISION  ACTION  DUE  SEARCH 


FIGURE  6. 2. 3. 2 
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ENGINEERING 

ORDER  RECORD 

DESCRIPTION 

ITEM 

NO. 

DESCRIPTION 

VARIABLE 

SIZE 

TYPE 

1 

* E.O. 

TITLE 

ETIT 

10 

characters/word  - 7 words 

ALPHA 

2 

E.O. 

NUMBER 

EON 

8 

characters 

ALPHA 

3 

E.O. 

REVISION 

EOREV 

2 

characters 

ALPHA 

4 

E.O. 

DATE 

EDT 

6 

characters  - MMDDYY 

NUMERIC 

5 

E.O. 

RE VI SON  DATE 

ERDT 

6 

characters  - MMDDYY 

NUMERIC 

6 

VEHICLE 

EOVEH 

4 

characters  - 2 entries 

ALPHA 

* NOT  PRESENT  IN  DALLAS  DATA 


FIGURE  6. 2. 3. 3 
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SEARCHABLE  ENGINEERING  ORDER  DATA  ITEMS 


ITEM 

NO. 

1 

2 

3 

4 

5 

6 


DESCRIPTION  SEARCHABLE 

E.O.  TITLE 

E.O.  NUMBER  * 

E.O.  REVISION 
E.O.  DATE 

E.O.  REVISION  DATE 

VEHICLE  ' * 


**  NOT  OUTPUT  DURING  A VEHICLE  SEARCH 


FIGURE  6.2.3. 4 


OUTPUT 

* 


* 


* 


* 


* 


** 
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DRAWING/ENGINEERING  ORDER  SEARCHES 


DESCRIPTION 

SPECIAL  NOTATION 

DRAWING  NUMBER 

- 

DATE 

DALLAS  DATA  ALL  ONE  DATE 

SYSTEM 

NOT  APPLICABLE  WITH  DALLAS 

SECTION 

NOT  APPLICABLE  WITH  DALLAS 

VEHICLE 

TWO  OPTIONS:  E.O. 's  OR  DRAWINGS 

VENDOR  CODE 

TITLE 

** 

REVISION  ACTION  DUE 

FIVE  (5)  OR  MORE  E.O.'s 

ALL 

TWO  OPTIONS:  E.O.'s  OR  DRAWINGS 

E.O.  NUMBER 

TWO  OPTIONS:  E.O.'s  OR  DRAWINGS 

**  DALLAS  DATA  TITLES  SOMETIMES 
CONTAIN  SYSTEM  AND/OR  SECTION 


FIGURE  6.2. 3. 5 
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6.3 


MISCELLANEOUS  VARIABLES  AND  ARRAYS 


This  Section  provides  a description  of  all  Miscellaneous  Variables 
and  Arrays  used  by  each  MAIL  LOG  subfile  program.  The  following  items  are 
given  for  each: 

(A)  Variable  or  Array  name 

(B)  Description  of  Variable  or  Array  name 

(C)  Size  of  Variable  or  Array  in  characters 

(D)  Type  of  characters 


6.3.1  MAIL  CORRESPONDENCE 

This  Section  provides  a description  of  all  variables  and  arrays 
used  by  the  CORRESPONDENCE  subroutines  4.1 .1  through  4.1 .29. 


VARIABLE/ARRAY 

DESCRIPTION 

SIZE 

TYPE 

A 

ARRAY  CONTAINING  USER  ID 

30 

ALPHA 

BLNK 

BLANK 

2 

ALPHA 

CD 

CURRENT  DATE  IN  JULIAN 

DOUBLE 

PRECISION 

NUMERIC 

CON 

CONTRACT  NUMBER 

20 

ALPHA 

COUNTR 

DAILY  COUNTER  STORAGE 

4 

NUMERIC 

D 

DESIRED  INPUT  DATE 

6 

NUMERIC 

DA 

DESIRED  AUTHOR 

28 

ALPHA 

DDD 

DESIRED  DOCUMENT  DATE 

6 

NUMERIC 

DE 

RESPONSIBLE  ENGINEER  FOR  ACTION  DUE 

3 

ALPHA 

DF 

FILE  SYSTEM  CODE  FOR  ACTION  DUE 

10 

ALPHA 

DL 

DESIRED  DOCUMENT  LETTER  NUMBER 

18 

ALPHA 

DM 

DESIRED  MAIL  STATUS 

2 

ALPHA 

DOC 

DOCUMENT  RECORD  COUNTER  FOR  EACH 
SUBJECT  FOUND  USING  WORD  SEARCH 

2 

NUMERIC 

DPT 

PRINT  SUBJECT  FOR  ACTION  DUE 

77 

ALPHA 

DRE 

DESIRED  RESPONSIBLE  ENGINEER 

3 

ALPHA 

DTO 

DESIRED  ADDRESSEE/TO 

32 

ALPHA 

DW 

DESIRED  CONTRACT  NUMBER 

20 

ALPHA 

FINISH 

FLAG  FOR  REVISION  OF  DATA  BASE 
COMPLETED 

1 

NUMERIC 

FVD 

FIRST  VALID  DATE 

6 

NUMERIC 

IA 

CHANGE  IN  TRAN  SUBFILE  FLAG 

1 

NUMERIC 

I ACT 

ACTION  DUE  DATE 

6 

NUMERIC 

IAN 

USER  RESPONSE  STORAGE 

2 

ALPHA 

IANN 

ANNOUNCEMENT  SUBFILE  OPEN  FLAG 

1 

NUMERIC 

IANS 

SUBFILE  SELECTOR  VALUE 

2 

NUMERIC 

ICON 

NUMBER  OF  WORDS  IN  SUBJECT  TO  BE 
SEARCHED 

2 

NUMERIC 

ICOUN 

DESIRED-DAILY  COUNTER 

4 

NUMERIC 
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VARIABLE/ARRAY 

DESCRIPTION 

SIZE 

TYPE 

I COUNT 

FILE  DAILY  RECORD  COUNTER 

4 

NUMERIC 

ICURR 

CURRENT  DATE 

6 

NUMERIC 

ID 

DAY 

2 

NUMERIC 

IDES 

USER  RESPONSE  FOR  SEARCH  MODE 

2 char.- 
2 entries 

ALPHA 

IDIFF 

DIFFERENCE  BETWEEN  ICURR  AND  IACT 

6 

NUMERIC 

IEX 

WORDS  USED  FOR  SUBJECT  SEARCH 

10  char.- 
4 entries 

ALPHA 

I FILE 

NUMBER  OF  FILES  TO  BE  OPENED  OR 
SPECIFIC  FILE  TO  BE  INPUT 

2 

NUMERIC 

I HARD 

COMPLETE  OUTPUT  OPTION  FLAG 

1 

NUMERIC 

IKNT 

NUMBER  OF  DATA  ITEMS  TO  BE  REVISED 

2 

NUMERIC 

I LINE 

ARRAY  LINE  COUNTER 

2 

NUMERIC 

ILP 

NUMBER  OF  DESCRIPTIONS  TO  BE  INPUT 

2 

NUMERIC 

IM 

MONTH 

2 

NUMERIC 

IMELE 

MEMO  LETTER  SUBFILE  OPEN  FLAG 

1 

NUMERIC 

IMIS  . 

MISCELLANEOUS  SUBFILE  OPEN  FLAG 

1 

NUMERIC 

IN 

INPUT  FILE  FUNIT 

2 

NUMERIC 

10 

OUTPUT  FILE  FUNIT 

2 

NUMERIC 

I OPT 

USER  RESPONSE  STORAGE 

2 

ALPHA 

I PAGE 

PAGE  LINE  COUNTER  OR  FIRST  MATCH 
FOUND  FLAG 

2 

NUMERIC 

IPR 

PURCHASE  REQUEST  SUBFILE  OPEN  FLAG 

1 

NUMERIC 

IPRINT 

TOP  OF  PAGE  FLAG 

1 

NUMERIC 

IR 

NUMBER  OF  A DATA  ITEM  TO  BE  REVISED 

2 

NUMERIC 

I READ 

FINISHED  READING  ALL  SUBFILES  FLAG 

1 

NUMERIC 

IRR 

FIRST  TIME  SEARCH  FLAG 

1 

NUMERIC 

IT 

TEMPORARY  SUBJECT  STORAGE 

77 

ALPHA 

ITEM 

DATA  ITEM  NUMBER  INDICATOR 

2 

NUMERIC 

ITRSP 

TRANSMITTAL  SUBFILE  OPEN  FLAG 

1 

NUMERIC 

ITWFX 

TWX  SUBFILE  OPEN  FLAG 

1 

NUMERIC 

IY 

YEAR 

2 

NUMERIC 

JOUT 

SPOOL  NEW  DATA  OUTPUT  AGAIN  FLAG 

1 

NUMERIC 

KNT 

DOCUMENTS  FOUND  COUNTER 

4 

NUMERIC 
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VARIABLE/ARRAY 

DESCRIPTION 

SIZE 

TYPE 

KT 

DAILY  COUNTER  FOR  ACTION  DUE 

4 

NUMERIC 

LEN 

• NUMBER  OF  CHARACTERS/WORD 

2 

NUMERIC 

LVD 

LAST  VALID  DATE 

6 

NUMERIC 

R 

INPUT-REVISE  FLAG 

1 

NUMERIC 

T1 

SUBJECT  SEARCH  WORD  COUNTER 

2 

NUMERIC 

TFVD 

FIRST  VALID  DATE  IN  JULIAN 

DOUBLE 

PRECISION 

NUMERIC 

TIM 

DOCUMENT  DATE  IN  JULIAN 

DOUBLE 

PRECISION 

NUMERIC 

TJ 

RETURN  VALUE  FROM  JTIME  SUBROUTINE 

DOUBLE 
. PRECISION 

NUMERIC 

TJUL 

RETURN  VALUE  FROM  JTIME  SUBROUTINE 

DOUBLE 

PRECISION 

NUMERIC 

TLVD 

LAST  VALID  DATE  IN  JULIAN 

DOUBLE 

PRECISION 

NUMERIC 

WA 

DESIRED  WA/ID  CODE 

8 

ALPHA 

6.3.2  DESIGN  INFORMATION  RELEASE/ REPORT 

This  Section  provides  a description  of  all  variables  and  arrays 
used  in  the  DIR/REPORT  subroutines  4.2.1  through  4.2.16. 


VARIABLE/ARRAY 

DESCRIPTION 

SIZE 

TYPE 

A 

ARRAY  CONTAINING  USER  ID 

30 

ALPHA 

BLNK 

BLANK 

2 

ALPHA 

CON 

CONTRACT  NUMBER 

20 

ALPHA 

D 

DATE 

6 

NUMERIC 

DC 

DESIRED  CONTRACT  NUMBER 

20 

ALPHA 

DIRR 

DIR/REPORT  NUMBER 

14 

ALPHA 

DOC 

DOCUMENT  RECORD  COUNTER  FOR  EACH  DIR/ 
REPORT  FOUND  DURING  WORD  TITLE  SEARCH 

2 

NUMERIC 

DS 

DESIRED  SYSTEM 

12 

ALPHA 

DWA 

DESIRED  WA  NUMBER 

8 

ALPHA 

FINISH 

FLAG  FOR  REVISION  OF  DATA  BASE 
COMPLETED 

1 

NUMERIC 

IANS 

USER  RESPONSE  STORAGE 

1 

ALPHA 

IC 

RETURN  ERROR  CODE 

2 

NUMERIC 

ICON 

NUMBER  OF  WORDS  TO  SEARCH  IN  TITLE 

2 

NUMERIC 

I DIR 

DIR/REPORT  NUMBER  STORAGE 

14 

ALPHA 

I DR 

DIR/REPORT  NUMBER  STORAGE 

14 

ALPHA 

IKNT 

NUMBER  OF  RECORD  TO  BE  ARCHIVED 

2 

NUMERIC 

IN 

INPUT  FILE  FUNIT 

2 

NUMERIC 

10 

OUTPUT  FILE  FUNIT 

2 

NUMERIC 

I OPT 

USER  RESPONSE  STORAGE 

2 

ALPHA 

I PAS 

PASSWORD  FOR  UFD  ATTACHMENT 

2 

ALPHA 

IR 

NUMBER  OF  A DATA  ITEM  TO  BE  REVISED 

2 

Numeric 

IT 

FILE  TYPE  OR  TEMPORARY  TITLE 

2 or 
77 

ALPHA 

ITY 

FILE  TYPE  RETURN  CODE 

2 

NUMERIC 

KNT 

DIR/REPORT  FOUND  COUNTER 

4 

NUMERIC 

LEN 

NUMBER  OF  CHARACTERS/WORD 

2 

NUMERIC 

R 

INPUT-REVISE  FLAG 

1 

NUMERIC 
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VARIABLE/ARRAY 

DESCRIPTION 

SIZE 

TYPE 

T1 

TITLE  SEARCH  WORD  COUNTER 

1 

NUMERIC 

VEH1 

DESIRED  VEHICLE 

4 

ALPHA 

VKNT 

VEHICLE  FOUND  COUNTER 

2 

NUMERIC 

VS 

FIRST  AND  LAST  VALID  VEHICLE 

8 

ALPHA 

WA 

WORK  AUTHORIZATION/ ID  CODE 

8 

ALPHA 

6.3.3 


DRAWING/ENGINEERING  ORDER 


This  Section  provides  a description  of  all  variables  and  arrays 
used  in  the  DRAWING/E. 0.  subroutines  4.3.1  through  4.3.25. 


VARIABLE/ARRAY 

DESCRIPTION 

SIZE  ■ 

TYPE 

A 

ARRAY  CONTAINING.  USER  ID 

30 

ALPHA 

BLNK 

BLANK 

2 

ALPHA 

COD 

VENDOR  CODE  PORTION  OF  THE 
DRAWING  NUMBER 

3 

ALPHA 

D 

DATE  DESIRED 

6 

NUMERIC 

DOC 

DOCUMENT  RECORD  COUNTER  FOR  EACH 
DRAWING  FOUND  DURING  WORD  TITLE  SEARCH 

2 

NUMERIC 

DS 

SYSTEM  DESIRED 

12 

ALPHA 

EOKNT 

E.O.  COUNTER  FOR  EACH  SHEET 

2 

NUMERIC 

FINISH 

FLAG  FOR  REVISION  OF  DATA  BASE 
COMPLETED 

1 

NUMERIC 

FIRST 

FLAG  FOR  FIRST  SHEET  OPERATION; 
DRAW  SUBFILE 

1 

NUMERIC 

IANS 

USER  RESPONSE  STORAGE 

1 

ALPHA 

IC 

RETURN  ERROR  CODE 

2 

NUMERIC 

I CODE 

DESIRED  VENDOR  CODE 

3 

ALPHA 

ICON 

NUMBER  OF  WORDS  TO  SEARCH  IN  TITLE 

2 

NUMERIC 

IDES 

USER  RESPONSE  STORAGE 

2 

ALPHA 

I DR 

TEMPORARY  DRAWING  NUMBER  STORAGE 

14 

ALPHA 

I DRAW 

DRAWING  NUMBER  DESIRED 

14 

ALPHA 

IEO 

E.O.  NUMBER  DESIRED 

8 

ALPHA 

IEOUP 

E.O.  UPDATE  FLAG  FOR  NEW  REVISION 

1 

NUMERIC 

IEX 

WORDS  OF  TITLE  SEARCHED 

10  char.- 

ALPHA 

4 entries 

II 

NUMBER  OF  E.O.'s  ON  1ST  SHEET 

2 

NUMERIC 

IIEORF 

REFERENCED  E.O.‘s  FOR  NEW  SHEET 

8 char.- 
lOentries 

ALPHA 

IINEO 

NUMBER  OF  E.O.'s  FOR  NEW  SHEET 

2 

NUMERIC 

1 1 REV 

REVISION  FOR  NEW  SHEET 

2 

ALPHA 

IISHTN 

SHEET  NUMBER  FOR  NEW  SHEET 

4 

NUMERIC 

IKNT 

NUMREP  OF  DATA  ITEMS  TO  BE  REVISED 

2 

NUMERIC 

I LINE 

OUTPUT  PAGE  LINE  COUNTER 

2 

NUMERIC 
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VARIABLE/ ARRAY 

DESCRIPTION 

SIZE 

TYPE 

IN 

INPUT  FILE  FUNIT 

2 

NUMERIC 

INEO 

NUMBER  OF  E.O. 's  FOR  SHEET 

2 

NUMERIC 

10 

OUTPUT  FILE  FUNIT 

2 

NUMERIC 

I OPT 

USER  RESPONSE  STORAGE 

“ 2 

ALPHA 

I PAGE 

NEW  PAGE  FLAG 

1 

NUMERIC 

I PAS 

PASSWORD  FOR  UFD  ATTACHMENT 

6 

ALPHA 

IR 

NUMBER  OF  A DATA  ITEM  TO  BE  REVISED 

2 

NUMERIC 

ISECT 

SECTION  DESIRED 

12 

ALPHA 

ISHT 

SHEET  NUMBER 

4 

NUMERIC 

ISHTN 

SHEET  NUMBER 

4 

NUMERIC 

IT 

FILE  TYPE  OR  TEMPORARY  TITLE 

2 or 
77 

ALPHA 

ITY 

FILE  TYPE  RETURN  CODE 

2 

ALPHA 

KNT 

DRAWINGS  FOUND  COUNTER 

4 

NUMERIC 

KNTT 

SHEETS  OF  DRAWING  FOUND  COUNTER 

2 

NUMERIC 

LEN 

NUMBER  OF  CHARACTERS/WORD 

2 

NUMERIC 

NEWSHT 

NEW  SHEET  FLAG 

1 

NUMERIC 

T1 

TITLE  SEARCH  WORD  COUNTER 

1 

NUMERIC 

TTIT 

TEMPORARY  TITLE 

77 

ALPHA 

VEH1 

VEHICLE  DESIRED 

4 

ALPHA 

VS 

FIRST  AND  LAST  VALID  VEHICLES 

4 char.- 
2 entries 

ALPHA 
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6.3.4 


GENERAL 


This  Section  provides  a description  of  all  variables  and  arrays 
used  in  the  general  subroutines  4.4.1  through  4.4.7. 


VARIABLE/ARRAY 

DESCRIPTION 

SIZE 

TYPE 

ACOMMA 

COMMA  CHARACTER 

3 

NUMERIC 

AERASE 

ERASE  CHARACTER 

3 

NUMERIC 

AH 

ACTUAL  HOURS 

2 

NUMERIC 

AKILL 

KILL  CHARACTER 

3 

NUMERIC 

AMIN 

ACTUAL  MINUTES 

2 

NUMERIC 

ANL 

NEW  LINE  CHARACTER 

3 

NUMERIC 

ARRAY 

ARRAY  CONTAINING  A TITLE  WORD 

30 

ALPHA 

AS  COL 

SEMICOLON  CHARACTER 

3 

NUMERIC 

ASP 

SPACE  CHARACTER 

3 

NUMERIC 

ASPSP 

RETURN  CHARACTER 

3 

NUMERIC 

BLNK 

BLANK 

2 

ALPHA 

BUF 

TEMPORARY  TITLE  BUFFER 

76 

ALPHA 

BUFF 

TEMPORARY  TITLE  BUFFER 

76 

ALPHA 

CON 

CONTRACT  NUMBER 

20 

ALPHA 

CHAR 

CHARACTER  FROM  TERMINAL 

1 

ALPHA 

IA 

RETURN  ARRAY  CONTAINING  USER  ID 

30 

ALPHA 

IAI 

RETURN  ARRAY  CONTAINING  USER  ID 

30 

ALPHA 

I DM 

MINUTES  OF  DAY 

2 

NUMERIC 

IH 

HOURS  OF  DAY 

2 

NUMERIC 

I MIN 

TEMPORARY  MINUTE  STORAGE 

2 

NUMERIC 

I MM 

MINUTES  PASSED 

2 

NUMERIC 

LEN 

NUMBER  OF  CHARACTERS/WORD 

2 

NUMERIC 

NAME 

TITLE  WORD  BUILT 

10 

ALPHA 

PEDL 

NUMBER  OF  CHARACTER 

2 

NUMERIC 

TIL 

TEMPORARY  TITLE  BUILT 

77 

ALPHA 

WA 

WORK  AUTHORIZATION/ ID  CODE 

8 

ALPHA 
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non 


6.4 


TABLES 


This  Section  describes  the  tables  used  by  the  MAIL  LOG  software. 


6.4.1  SYSCOM  KEYS.F 


Table  SYSCOM  KEYS.F  represents  the  File  System  Key  Definitions  as 

shown: 


NOLIST  • 

TABSET  6 11  28  69 

INTEGER *2  K$READ,  K$WRITf  K$FOSN,  K$TRNC , K$RPOS , K$PRER,  K$PREA , 
X K$POSR,  K$POSA,  K$CONV,  K$RDWR,  K$CLOS , K$DELE,  K$EXST, 

X K$IUFD,  K$ISEG,K$CACC , K$NSAM , K$NDAM , K$NSGS , K$NSGD, 

X K$CURR,K$IMFD,K$ICUR,K$SETC,K$SETH,K$ALLD,K$SPOS, 

X K$GOND,K$MSIZ,K$MENT,K$ENTR,K$SENT,K$GPOS,K$UPOS, 

X K$PROT,K$DTIM,K$DMFB,K$NRrNf  K$SRIIN,K$IRTN 

PARAMETER 
X 

X /*******************************************************/ 

X /* 

x /* 

X /*  KEY  DEFINITIONS 

X/* 

X /* 

X /*********************  PK»JF$$  ********************* 

X /*  ******  pji/KEY  ****** 

X K$READ  = :1,  /*  READ 

X K$WRIT  = : 2,  /*  WRITE 

X K$POSN  = : 3,  /*  POSITION  ONLY 

X K$TRNC  = :4,  /*  TRUNCATE 

X K$RPOS  = :5,  /*  READ  CURRENT  POSITION 

X /*  ******  POSKEY  ****** 

X K$PRER  = : 0,  /*  PRE-POSITION  RELATIVE 

X K$PREA  = :10,  /*  PRE-POSITICW  ABSOLUTE 

X K$POSR  = : 20,  /*  POST-POSITION  RELATIVE 

X K$POSA  = : 30,  /*  POST-POSITION  ABSOLUTE 

X /*  ******  mode  ****** 

X K$CONV  = : 400,  /*  CONVENIENT  NUMBER  OF  WORDS 

X /* 

X /*********************  SRCH$$  ********************* 

X /*  ******  ACTION  ****** 

X /*  K$READ  = jl,  /*  OPEN  FOR  READ 

X /*  K$WRIT  = :2,  /*  OPEN  FOR  WRITE 

X K$RDWR  = :3,  /*  OPEN  FOR  READING  AND  WRITING 

X K$CLOS  = :4,  /*  CLOSE  FILE  UNIT 

X K^DELE  = i5,  /*  DELE1E  FILE 

X K$EXST  = :6,  /*  CHECK  FILE'S  EXISTENCE 
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X /*  ******  pep  ****** 

X K$IUFD  = :0,  /*  FILE  ENTRY  IS  IN  UFD 

X K$ISEG  * :100,  /*  FILE  ENTRY  IS  IN  SEGMENT  DIRECTORY 

-X  K$CACC  * :1000f  /*  CHANGE  ACCESS 

x /*  ******  newfil  ****** 

.X  KSNSAM  = :0,  /*  NEW  SAM  FILE 

X K$NDAM  = :2000,  /*  NEW  DAM  FILE 

X K$NSGS  = :4000,  /*  NEW  SAM  SEGMENT  DIRECTORY 

X K$NSQD  = : 6000,  /*  NEW  DAM  SEGMENT  DIRECTORY 

X K$CURR  = : 177777,/*  CURRENTLY  ATTACHED  UFD 

X /* 

X kk  k it  kk  kk  Irk  k * **  * * ATCH$$  kkkkkkkkkkkkkkkkkkkkk 

X ******  KEY  ****** 

X K$IMFD  = :0,  /*  UFD  IS  IN  MFD 

X K$ICUR  = : 2,  /*  UFD  IS  IN  CURRENT  UFD 

x /*  ******  keymod  ****** 

X K$SETC  = : 0,  /*  SET  CURRENT  UFD  (DO  NOT  SET  HCME) 

X K$SETH  = :1,  /*  SETT  HCME  UFD  (AS  WELL  AS  CURRENT) 

x /*  ******  name  ****** 

X K$HOME  = : 0,  /*  RETURN  TO  HCME  UFD  (KEY=K$IMFD) 

x /*  ******  ldisk  ****** 

X K$ALLD  = :100P$0,/*  SEARCH  AIL  DISKS 

X /*  K$CURR  = .-177777,/*  SEARCH  MFD  OF  CURRENT  DISK 
X /* 

X fkkk  ******************  SGDR$$  ********************* 


X /* 

******  key  ****** 

X 

K$SPOS  = :1, 

/*  POSITION  TO  ENTRY  NUMBER  IN  SEGDIR 

X 

K$GOND  = : 2, 

/*  POSITION  TO  END  OF  SEGDIR 

X 

K$GPOS  = : 3, 

/*  RETURN  CURRENT  ENTRY  NUMBER 

X 

K$MSIZ  = : 4, 

/*  MAKE  SEGDIR  GIVEN  NR  OF  ENTRIES 

X 

K$MVNT  = :5, 

/*  MOVE  FILE  ENTRY  TO  NEW  POSITION 

X /* 

X /kkkkkkkkkkkkkkkkkkkkk  RDEN$$  *********************  ^ 

x /* 

kkkkkk  XJJY  ****** 

x /* 

K$READ  = : 1, 

/*  READ  NEXT  ENTRY 

X 

K$RSUB  = : 2, 

/*  READ  NEXT  SUB-ENTRY 

X /* 

K$GPOS  = : 3, 

/*  RETURN  CURRENT  POSITION  IN  UFD 

X 

K$UPOS  = : 4, 

/*  POSITION  IN  UFD 

X /* 

X /*********************  SATR$$  kkkkkkkkk ************ 

x /* 

******  key  ****** 

X 

K$PROT  = : 1, 

/*  SET  PROTECTION 

X 

K$DTIM  = :2, 

/*  SET  DATE/TIME  MODIFIED 

X 

K$DMPB  = : 3, 

/*  SET  DUMPED  BIT 

X /* 

X ^*********************  ERRPR$$  ******************** 

X /* 

******  key  ****** 

X 

K$NRTN  = :0, 

/*  NEVER  RETURN  TO  USER 

X 

K$SRTN  = :i, 

/*  RETURN  AFTER  START  COMMAND 

X 

K$IRTN  = : 2 

/*  IMMEDIATE  RETURN  TO  USER 

X /* 

X /* 

x /********************************************************* 
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6.4.2 


CTAB 


Table  CTAB  represents  the  WORK  AUTHORIZATION/ID  CODE  - CONTRACT 
NUMBER  TABLE.  This  table  is  referenced  in  operation  of  the  DIR/REPORT  and 
CORRESPONDENCE  subfiles  only. 

WA/ID  CODE  CONTRACT/TASK  WA/ID  CODE  CQNTRACT/TASK 


2902 

I.R.&D. 

3219 

NASI -6049 

2903 

BID/PROPOSAL 

3221 

NASI -5610 

3050 

NASI -1295 

3223 

NASI -5883 

3079 

NASI -900 

3228 

NASI -5880 

3081 

NASI -11 13 

3232 

NASI -6020 

3082 

NASI -1255 

3234 

NASI -6748 

3089 

NASI -1255 

3242 

NASI -6020 

3091 

NASI -1481 

3245 

NASI -6935 

3116 

NASI -1807 

3246 

NASI -6935 

3117 

NASI -900 

3258 

NASI -6868 

3118 

NASI -1928 

3263 

NASI -6957 

3119 

NASI -1481 

3270 

NASI -71 99 

3123 

N AS 1-2165 

3275 

NASI -6935 

3125 

NASI -21 89 

3282 

NASI -7256 

3126 

NASI -111  3 

3284 

NASI -7256 

3129 

NASI -2455 

3288 

A. F. 4701 -68-C-0252 

3130 

NASI -1295 

3293 

NASI -7256 

3132 

NASI -1946 

3300 

NASI -9258 

3133 

NASI -1295 

3302 

NASI -6935 

3154 

NASI -2650 

3302A 

■ NASI -6935-36 

3157 

NASI -21 65 

3302B 

NASI -6935-41 

3160 

NASI -261 7 

3303 

ARMY-DAHC60-70-C0041 

3164 

NASI -3420 

3305 

A.F.4701 -69-C-0392 

3165 

NASI -3420 

3313 

NASI -9994 

3170 

NASI -3589 

3329 

NASI -10534 

3171 

NASI -361 5 

3333 

NASI -10000 

3172 

NASI -3683 

3334 

NASI -10000/TASK  J 

3176 

NAS 1 -3657 

3335 

NASI -10000/TASK  M 

3180 

NASI -3899 

3336 

NASI -10000/TASK  R 

3182 

NASI -3899 

3337 

NASI -10000/TASK  S 

3183 

NASI -391 5 

3340 

NASI -10500 

3187 

NASI -4325 

3341 

NASI -10500 

3192 

NASI -3589 

3342 

NASI -10500 

3195 

NAS1-5539 

3343 

NASI -10500 

3196 

NASI -4899 

3347 

NASI -10848 

3202 

NASI -4664 

3354 

NASI -11 000 

3207 

NASI -4664 

3359 

NASI -10000/TASK  W 

3210  . 

NASI -5592 

3362 

NASI -10000/TASK  V 
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WA/ID  CODE 

CONTRACT/TASK 

3381 

NASI -12500 

3382 

NASI -12500/TASK  J 

3383 

NASI -12500/TASK  M 

3384 

NASI -12500/TASK  R 

3385 

NASI -12500/TASK  S 

3507 

NASI -12500/TASK  W 

3525 

NASI -15000 

3526 

NASI -151 00 

3527 

NASI  -151 00 

3532 

NASI -14500 

3801 

NASI -6024 

3804AAAJ 

NASI -3405 

3804AABM 

NASI -6020 

3804EABB 

NASI -5369 

3804EABN 

NASI -7888 

3809AAAB 

NASI -101 3 

3809AAAD 

NASI -2215 

3809AAAE 

NASI -2478 

3809AAAF 

NASI -553 

3809AAAH 

NASI -3311 

3809AAAM 

NASI -4494 

3809AAAN 

NASI -4664 

3809BAAL 

NASI -1255 

3809BAAM 

NASI -1255 

3809EABP 

NASI -5539 

3811 

NASI -21 65 

3812 

NASI -3420 

3859 

NASI -3420 
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7.0  MAIL  LOG  OUTPUTS 

Outputs  generated  by  the  SPADS  MAIL  LOG  program  are  described  and 
exhibited  in  Section  7.0  of  the  Program  Summary  and  Specification  Manual. 

If  this  document  is  not  available,  a similar  set  of  outputs  and  descriptions 
may  be  found  in  Section  5.0  of  the  Operating  Instructions  Manual. 


8.0 


EXTERNAL  CALLS 


The  purpose  of  this  section  is  to  provide  a reference  list  for  all 
subroutines  used  by,  but  external  to,  the  SPADS  MAIL  LOG  software  package. 

8.1  SYSTEM  SOFTWARE  ROUTINES 

A description  of  each  of  the  following  routines  may  be  found  in  the 
PRIME  REFERENCE  GUIDES: 

PDR3110  - "File  Management  System"  (FMS) 

PDR3106  - "Software  Library"  (SL) 

PDR3057  - "Fortran  Programmer's  Guide"  (FPG) 


r 


ROUTINE 


FMS 


SL 


FPG 


ATCH$$. 

BREAK$ 

Cl  IN 

CNAM$$ 

COMI $$ 

ENDFILE 

EXIT 

LS 

LT 

RECYCL 

RESU$$ 

REWIND 

RT 

SRCH$$ 

TlOU 

TIMDAT 


X 

X 

X 

X 

X 

X 


X 

X 


X 

X 
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8.2 


MISCELLANEOUS  ROUTINES 


The  following  subroutines  are  used  by  the  SPADS  MAIL  LOG  software 
package,  but  are  not  found  within  the  PRIMOS  operation  system.  These 

routines  are  defined  at  load  time  and  shown  in  Appendix  E. 

8.2.1  CLEAR 

This  subroutine  is  used  to  clear  the  user  terminal.  Appendix  E, 

Figure  1 depicts  the  source  code  for  this  subroutine. 

8.2.2  PAUS 

This  subroutine  performs  the  following  functions: 

If  many  document  records  are  found  during  a search  and  it  is  observed 
that  needed  information  will  soon  disappear  from  the  screen,  the  user  may 
temporarily  stop  terminal  display  by  depressing  the  space  bar.  Terminal 
display  may  be  restarted  by  depressing  the  ' Q ' key. 

At  this  time  the  source  code  for  this  subroutine  is  not  available. 
However,  a routine  used  by  this  PAUS  routine,  CHKLIN,  is  available.  Appendix  E, 
Figure  2 depicts  the  source  code  for  the  Check  Line  subroutine. 

8.2.3  JTIME 

This  subroutine  is  only  used  in  the  MAIL  CORRESPONDENCE  portion  of 
program.  This  procedure  converts  a given  date,  month,  date,  and  year,  into 
Julian  time.  Appendix  E,  Figure  3 depicts  the  source  code  for  this  subroutine. 
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9.0  SPECIAL  SUPPORT  ROUTINES 

The  main  body  of  the  DRAWING/E. 0.  subfile  data  must  be  converted 
from  magnetic  tape  to  disk  and  reformatted  for  the  SPADS  MAIL  LOG  data  base 
subfile  structure.  See  Section  6. 1.1. 3. 

To  accomplish  this  conversion,  the  following  steps  and  special  support 
routines  are  used: 

(a)  MAGRST  data  from  tape  to  disk;  designate  data  as  DDATA  file. 

(b)  Manually  examine  the  DDATA  file  using  the  EDITOR.  Delete  all 

records  referencing  to  SEI's.  Note:  SEI's  are  usually  the 

first  25  to  50  records  on  the  file. 

(c)  Begin  execution  of  conversion  by  using  routine  PHASE  1.  This  is 
accomplished  by  entering  R *PHASE  1.  This  routine  picks  out 
the  necessary  data  from  the  Dallas  data  and  builds  a new  data 
file  called  NEW. 

(d)  PHASE  2 is  executed  in  the  same  manner  as  PHASE  1.  This  routine 
modifies  the  vehicle  numbers  and  builds  a searchable  title.  The 

• procedure  also  formats  all  data  for  data  base  subfile 
compatibility.  The  new  data  file  constructed  during  this  phase 
is  called  FINAL. 

(e)  PHASE  2 has  a checking  routine  called  TTEST.  This  routine 
displays  on  the  terminal  each  data  record  within  FINAL. 

(f)  PHASE  3 is  actually  made  up  of  several  subroutines  which  build 
the  DRAW  and  SHEET  subfiles  from  the  FINAL  data  file.  Each 
subfile  has  its  own  checking  routine: 

(1)  DRAW  is  checked  by  TEST.  The  TEST  routine  builds  an 

output  file  called  OUT  containing  all  DRAW  data  items  for 
each  data  record. 
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(2)  SHEET  is  checked  by  CHECKS.  The  CHECKS  routine  builds  an 
output  file  called  SHT  containing  all  SHEET  data  items  for 
each  data  record. 

The  output  files  must  be  manually  spooled. 

(g)  PHASE  4 must  be  executed  overnight  due  its  long  running  time. 
This  routine  builds  the  Engineering  Order  data  file,  EO,  from 
the  FINAL  data  file.  Each  E.O.  number  entered  is  checked  for  a 
previous  entry.  This  process  becomes  progressively  more  time 
consuming  as  the  E.O.  data  file  builds  and  exceeds  1500  records 

(h)  All  data  subfiles  must  be  transferred  from  the  TRANSPOSEDRAW 
UFD  to  the  F_DRAW  UFD.  After  the  old  subfiles  have  been 
deleted  or  their  names  changed. 

(i)  The  E.O.  data  file  may  now  be  checked  by  executing  an  E.O. 

PRINT  ALL  search  in  the  MAIL  LOG  program. 

Note  that  all  these  routines  are  located  in  the  TRANSPOSEDRAW 
UFD  in  MFD  1.  The  source  code  for  each  of  these  routines  are 
given  in  Appendix  F. 

Figure  1 
Figure  2 
Figure  3 
Figure  4 
Figure  5 
Figure  6 
Figure  7 
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PHASE  3 
PHASE  4 
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TEST 
CHECKS 
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